emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hl-block-mode 5f532fef33 12/64: Cleanup: indentation


From: ELPA Syncer
Subject: [nongnu] elpa/hl-block-mode 5f532fef33 12/64: Cleanup: indentation
Date: Thu, 7 Jul 2022 12:00:01 -0400 (EDT)

branch: elpa/hl-block-mode
commit 5f532fef335884561237788f39249678fe32a384
Author: Campbell Barton <ideasman42@gmail.com>
Commit: Campbell Barton <ideasman42@gmail.com>

    Cleanup: indentation
---
 hl-block-mode.el | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/hl-block-mode.el b/hl-block-mode.el
index 6dd12c7f3e..36f51cc46f 100644
--- a/hl-block-mode.el
+++ b/hl-block-mode.el
@@ -64,10 +64,10 @@ PT is typically the '(point)'."
 (defun hl-block--find-all-ranges (pt)
   "Return a list of ranges starting from PT, outer-most to inner-most."
   (let* ((start
-           ;; find brackets
-           (if hl-block-bracket
-               (hl-block--syntax-prev-bracket pt)
-             (ignore-errors (elt (syntax-ppss pt) 1))))
+          ;; find brackets
+          (if hl-block-bracket
+              (hl-block--syntax-prev-bracket pt)
+            (ignore-errors (elt (syntax-ppss pt) 1))))
          (end
           (when start (or (ignore-errors (scan-sexps start 1)) pt)))
          (range-prev
@@ -122,15 +122,15 @@ Inverse of `color-values'."
                                          bg-color bg-color-tint)
                             (cl-mapcar '(lambda (a b) (- a (* i-tint b)))
                                        bg-color bg-color-tint)))))
-                 (overlay-put elem-overlay-start
-                              'face `(:background ,bg-color-blend))
-                 (overlay-put elem-overlay-end
-                              'face `(:background ,bg-color-blend))
-                 (add-to-list 'hl-block-overlay elem-overlay-start)
-                 (add-to-list 'hl-block-overlay elem-overlay-end)
-                 (setq start-prev start)
-                 (setq end-prev end)))
-             (cdr block-list))))))
+             (overlay-put elem-overlay-start
+                          'face `(:background ,bg-color-blend))
+             (overlay-put elem-overlay-end
+                          'face `(:background ,bg-color-blend))
+             (add-to-list 'hl-block-overlay elem-overlay-start)
+             (add-to-list 'hl-block-overlay elem-overlay-end)
+             (setq start-prev start)
+             (setq end-prev end)))
+         (cdr block-list))))))
 
 (defun hl-block--overlay-refresh-from-timer ()
   "Ensure this mode has not been disabled



reply via email to

[Prev in Thread] Current Thread [Next in Thread]