[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 4095a00 1/2: Fix setting completions* faces in,
Thierry Volpiatto <=