aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJoão Távora2019-11-07 23:54:21 +0000
committerJoão Távora2019-11-08 10:18:33 +0000
commitd558d9fa1e0daf7e8f511cac4595c1eeeeeeb177 (patch)
treec3283738293b5edce46eec46bc1b2298a8a26198
parent42eaac3134ee199ffb20863c42c1867d25b33623 (diff)
downloademacs-d558d9fa1e0daf7e8f511cac4595c1eeeeeeb177.tar.gz
emacs-d558d9fa1e0daf7e8f511cac4595c1eeeeeeb177.zip
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.
-rw-r--r--lisp/minibuffer.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 43dd277a2e4..cc113b926f3 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -3145,16 +3145,16 @@ one-letter-long matches).")
3145 (while md 3145 (while md
3146 (funcall update-score start (car md)) 3146 (funcall update-score start (car md))
3147 (put-text-property start (pop md) 3147 (put-text-property start (pop md)
3148 'font-lock-face 'completions-common-part 3148 'face 'completions-common-part
3149 str) 3149 str)
3150 (setq start (pop md))) 3150 (setq start (pop md)))
3151 (funcall update-score len len) 3151 (funcall update-score len len)
3152 (put-text-property start end 3152 (put-text-property start end
3153 'font-lock-face 'completions-common-part 3153 'face 'completions-common-part
3154 str) 3154 str)
3155 (if (> (length str) pos) 3155 (if (> (length str) pos)
3156 (put-text-property pos (1+ pos) 3156 (put-text-property pos (1+ pos)
3157 'font-lock-face 'completions-first-difference 3157 'face 'completions-first-difference
3158 str)) 3158 str))
3159 (unless (zerop (length str)) 3159 (unless (zerop (length str))
3160 (put-text-property 3160 (put-text-property