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