[Top][All Lists]

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

[elpa] master 4235ffc 092/272: colir.el (colir-blend-face-background): I

From: Oleh Krehel
Subject: [elpa] master 4235ffc 092/272: colir.el (colir-blend-face-background): Improve
Date: Mon, 25 Apr 2016 10:13:18 +0000

branch: master
commit 4235ffc0d4409519f7b4bdc97f84eb379f23162f
Author: Oleh Krehel <address@hidden>
Commit: Oleh Krehel <address@hidden>

    colir.el (colir-blend-face-background): Improve
    Add a `facep' check. It improves the foreground modification of
 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)))

reply via email to

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