emacs-diffs
[Top][All Lists]
Advanced

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

master 4095a00 1/2: Fix setting completions* faces in


From: Thierry Volpiatto
Subject: master 4095a00 1/2: Fix setting completions* faces in
Date: Fri, 6 Dec 2019 02:01:47 -0500 (EST)

branch: master
commit 4095a006fd90c63179904e2f7a406a36e7f781dc
Author: Thierry Volpiatto <address@hidden>
Commit: Thierry Volpiatto <address@hidden>

    Fix setting completions* faces in
    
    `completion-pcm--hilit-commonality` so that these faces doesn't
    override possible already existing faces in other UIs.
    
    * lisp/minibuffer.el (completion-pcm--hilit-commonality): Use
    `add-face-text-property` instead of `put-text-property`.
---
 lisp/minibuffer.el | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 779c3c8..c2183a6 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -3171,18 +3171,21 @@ one-letter-long matches).")
            (funcall update-score start start)
            (while md
              (funcall update-score start (car md))
-             (put-text-property start (pop md)
-                                'face 'completions-common-part
-                                str)
+             (add-face-text-property
+              start (pop md)
+              'completions-common-part
+              nil str)
              (setq start (pop md)))
            (funcall update-score len len)
-           (put-text-property start end
-                              'face 'completions-common-part
-                              str)
+           (add-face-text-property
+            start end
+            'completions-common-part
+            nil str)
            (if (> (length str) pos)
-               (put-text-property pos (1+ pos)
-                                  'face 'completions-first-difference
-                                  str))
+               (add-face-text-property
+                pos (1+ pos)
+                'completions-first-difference
+                nil str))
            (unless (zerop (length str))
              (put-text-property
               0 1 'completion-score



reply via email to

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