[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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/engrave-faces 2b107c9357: Fix non-hex color check,
ELPA Syncer <=