branch: master
commit 4235ffc0d4409519f7b4bdc97f84eb379f23162f
Author: Oleh Krehel <ohwoeo...@gmail.com>
Commit: Oleh Krehel <ohwoeo...@gmail.com>
colir.el (colir-blend-face-background): Improve
Add a `facep' check. It improves the foreground modification of
`ivy-current-match'.
---
colir.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/colir.el b/colir.el
index e11ef7d..792033f 100644
--- a/colir.el
+++ b/colir.el
@@ -77,11 +77,11 @@ Optional argument OBJECT is the string or buffer containing
the text.
See also `font-lock-append-text-property'."
(let (next prev)
(while (/= start end)
- (setq next (next-single-property-change start 'face object end)
- prev (get-text-property start 'face object))
+ (setq next (next-single-property-change start 'face object end))
+ (setq prev (get-text-property start 'face object))
(when (listp prev)
(setq prev (cl-find-if #'atom prev)))
- (if prev
+ (if (facep prev)
(let ((background-prev (face-background prev)))
(progn
(put-text-property
