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

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

[nongnu] elpa/rainbow-delimiters 455bcee19c 182/188: Provide a base face


From: ELPA Syncer
Subject: [nongnu] elpa/rainbow-delimiters 455bcee19c 182/188: Provide a base face for the error faces too
Date: Sat, 1 Jan 2022 00:59:03 -0500 (EST)

branch: elpa/rainbow-delimiters
commit 455bcee19c92bf85db0ba7e926f0b5a176b69865
Author: Fanael Linithien <fanael4@gmail.com>
Commit: Fanael Linithien <fanael4@gmail.com>

    Provide a base face for the error faces too
    
    Release 2.1.4.
---
 rainbow-delimiters.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/rainbow-delimiters.el b/rainbow-delimiters.el
index d3eb59f6ac..6535e0df36 100644
--- a/rainbow-delimiters.el
+++ b/rainbow-delimiters.el
@@ -2,12 +2,12 @@
 
 ;; Copyright (C)
 ;;   2010-2013 Jeremy Rayman
-;;   2013-2016 Fanael Linithien
+;;   2013-2019 Fanael Linithien
 ;; Author: Jeremy Rayman <opensource@jeremyrayman.com>
 ;;         Fanael Linithien <fanael4@gmail.com>
 ;; Maintainer: Fanael Linithien <fanael4@gmail.com>
 ;; Created: 2010-09-02
-;; Version: 2.1.3
+;; Version: 2.1.4
 ;; Keywords: faces, convenience, lisp, tools
 ;; Homepage: https://github.com/Fanael/rainbow-delimiters
 
@@ -109,15 +109,19 @@ The function should not move the point or mark or change 
the match data."
   "Face inherited by all other rainbow-delimiter faces."
   :group 'rainbow-delimiters-faces)
 
-(defface rainbow-delimiters-unmatched-face
+(defface rainbow-delimiters-base-error-face
   '((default (:inherit rainbow-delimiters-base-face))
-    (((background light)) (:foreground "#88090B"))
-    (((background dark)) (:inherit rainbow-delimiters-base-face :foreground 
"#88090B")))
+    (t (:foreground "#88090B")))
+  "Face inherited by all other rainbow-delimiter error faces."
+  :group 'rainbow-delimiters-faces)
+
+(defface rainbow-delimiters-unmatched-face
+  '((default (:inherit rainbow-delimiters-base-error-face)))
   "Face to highlight unmatched closing delimiters in."
   :group 'rainbow-delimiters-faces)
 
 (defface rainbow-delimiters-mismatched-face
-  '((t :inherit (rainbow-delimiters-unmatched-face 
rainbow-delimiters-base-face)))
+  '((default (:inherit rainbow-delimiters-unmatched-face)))
   "Face to highlight mismatched closing delimiters in."
   :group 'rainbow-delimiters-faces)
 



reply via email to

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