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

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

[nongnu] elpa/hl-block-mode a165ce51fb 56/64: Fix bracket draw style hig


From: ELPA Syncer
Subject: [nongnu] elpa/hl-block-mode a165ce51fb 56/64: Fix bracket draw style highlighting point-min/max
Date: Thu, 7 Jul 2022 12:00:10 -0400 (EDT)

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

    Fix bracket draw style highlighting point-min/max
---
 hl-block-mode.el | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/hl-block-mode.el b/hl-block-mode.el
index 73d0ad8eb3..4c013e0e49 100644
--- a/hl-block-mode.el
+++ b/hl-block-mode.el
@@ -261,15 +261,15 @@ Argument BLOCK-LIST represents start-end ranges of 
braces."
               (hl-block--find-all-ranges (point)))))))
 
     (when block-list
-      (setq block-list
-        (cond
-          ((cdr block-list)
-            (reverse block-list))
-          (t
-            (cons (cons (point-min) (point-max)) block-list))))
-
       (cond
         ((eq hl-block-style 'color-tint)
+          ;; Ensure outer bounds (when only one pair exists).
+          (setq block-list
+            (cond
+              ((cdr block-list)
+                (reverse block-list))
+              (t
+                (cons (cons (point-min) (point-max)) block-list))))
           (hl-block--overlay-create-color-tint block-list))
         ((eq hl-block-style 'bracket)
           (hl-block--overlay-create-bracket block-list))



reply via email to

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