Make counsel-locate use a process

[gnu-emacs-elpa] / colir.el

diff --git a/colir.el b/colir.el
index f5ce0aef8ac31248a2979b66a85960134b9a29a1..7eacbbd12b5f8a913eb486ff414a7abbd60b7af3 100644 (file)
--- a/colir.el
+++ b/colir.el
@@ -76,6 +76,8 @@ See also `font-lock-append-text-property'."
     (while (/= start end)
       (setq next (next-single-property-change start 'face object end)
             prev (get-text-property start 'face object))
+      (when (listp prev)
+        (setq prev (cl-find-if #'atom prev)))
       (if prev
           (let ((background-prev (face-background prev)))
             (progn