diff options
author | João Távora <joaotavora@gmail.com> | 2019-11-07 23:54:21 +0000 |
---|---|---|
committer | João Távora <joaotavora@gmail.com> | 2019-11-08 10:18:33 +0000 |
commit | d558d9fa1e0daf7e8f511cac4595c1eeeeeeb177 (patch) | |
tree | c3283738293b5edce46eec46bc1b2298a8a26198 | |
parent | 42eaac3134ee199ffb20863c42c1867d25b33623 (diff) | |
download | emacs-d558d9fa1e0daf7e8f511cac4595c1eeeeeeb177.tar.gz |
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.el | 6 |
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).") (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 |