diff options
| -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 |