Merge commit 'e9530990914c1d81889269b4a8365b8003625557' from swiper

[gnu-emacs-elpa] / packages / swiper / colir.el

diff --git a/packages/swiper/colir.el b/packages/swiper/colir.el
index f5ce0aef8ac31248a2979b66a85960134b9a29a1..7eacbbd12b5f8a913eb486ff414a7abbd60b7af3 100644 (file)
--- a/packages/swiper/colir.el
+++ b/packages/swiper/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