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

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

[elpa] externals/engrave-faces 2b107c9357: Fix non-hex color check


From: ELPA Syncer
Subject: [elpa] externals/engrave-faces 2b107c9357: Fix non-hex color check
Date: Sat, 14 Jan 2023 23:58:05 -0500 (EST)

branch: externals/engrave-faces
commit 2b107c93571dfd92a4e4cfce01f4c7cd4028da80
Author: TEC <git@tecosaur.net>
Commit: TEC <git@tecosaur.net>

    Fix non-hex color check
    
    Somehow I ended up making the final check a check /for/ hex colors...
---
 engrave-faces.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/engrave-faces.el b/engrave-faces.el
index 5252089d2c..4f7e38e447 100644
--- a/engrave-faces.el
+++ b/engrave-faces.el
@@ -358,7 +358,7 @@ To consider inheritence, use 
`engrave-faces-explicit-inheritance' first."
                ((and (memq attribute '(:foreground :background))
                      (stringp raw-value)
                      (not (string-empty-p raw-value))
-                     (= ?# (aref raw-value 0)))
+                     (not (= ?# (aref raw-value 0))))
                 (apply 'format "#%02x%02x%02x"
                        (mapcar (lambda (c) (ash c -8))
                                (color-values raw-value))))
@@ -434,7 +434,7 @@ Unconditionally returns nil when FACES is default."
                                (if (and (memq attr '(:foreground :background))
                                         (stringp attr-val)
                                         (not (string-empty-p attr-val))
-                                        (= ?# (aref attr-val 0)))
+                                        (not (= ?# (aref attr-val 0))))
                                    (apply 'format "#%02x%02x%02x"
                                           (mapcar (lambda (c) (ash c -8))
                                                   (color-values attr-val)))



reply via email to

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