[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d558d9f 1/2: Have pcm styles apply faces to face prop, not font-l
From: |
João Távora |
Subject: |
master d558d9f 1/2: Have pcm styles apply faces to face prop, not font-lock-face |
Date: |
Fri, 8 Nov 2019 05:18:38 -0500 (EST) |
branch: master
commit d558d9fa1e0daf7e8f511cac4595c1eeeeeeb177
Author: João Távora <address@hidden>
Commit: João Távora <address@hidden>
Have pcm styles apply faces to face prop, not font-lock-face
This is the way the basic completion styles work. This fixes
candidate highlighting in icomplete.
* lisp/minibuffer.el (completion-pcm--hilit-commonality): Apply
faces to 'face property, not font-lock-face.
---
lisp/minibuffer.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 43dd277..cc113b9 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -3145,16 +3145,16 @@ one-letter-long matches).")
(while md
(funcall update-score start (car md))
(put-text-property start (pop md)
- 'font-lock-face 'completions-common-part
+ 'face 'completions-common-part
str)
(setq start (pop md)))
(funcall update-score len len)
(put-text-property start end
- 'font-lock-face 'completions-common-part
+ 'face 'completions-common-part
str)
(if (> (length str) pos)
(put-text-property pos (1+ pos)
- 'font-lock-face 'completions-first-difference
+ 'face 'completions-first-difference
str))
(unless (zerop (length str))
(put-text-property