[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/highlight-parentheses d27ba13 1/2: Fix #3: highlight also
From: |
Tassilo Horn |
Subject: |
[nongnu] elpa/highlight-parentheses d27ba13 1/2: Fix #3: highlight also if nothing but the face is defined |
Date: |
Mon, 16 Aug 2021 07:20:08 -0400 (EDT) |
branch: elpa/highlight-parentheses
commit d27ba136fdc2ded54d48de19fd6a9ed2f10f8e27
Author: Tassilo Horn <tsdh@gnu.org>
Commit: Tassilo Horn <tsdh@gnu.org>
Fix #3: highlight also if nothing but the face is defined
---
highlight-parentheses.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/highlight-parentheses.el b/highlight-parentheses.el
index 0a49a87..d733128 100644
--- a/highlight-parentheses.el
+++ b/highlight-parentheses.el
@@ -242,6 +242,11 @@ overlays in it instead."
(funcall highlight-parentheses-attributes)
highlight-parentheses-attributes))
attributes)
+ ;; If no colors, bg-colors, or attrs are set, then only the effect of
+ ;; highlight-parentheses-highlight should be applied. In that case,
fontify
+ ;; up to 8 nesting levels with the specification of that face.
+ (when (and (null fg) (null bg) (null attr))
+ (setq fg (make-list 8 nil)))
(while (or fg bg attr)
(setq attributes (face-attr-construct 'highlight-parentheses-highlight))
(let ((car-fg (car fg))