From: Thierry Volpiatto Date: Fri, 6 Dec 2019 06:22:57 +0000 (+0100) Subject: Fix setting completions* faces in X-Git-Tag: emacs-27.0.90~426^2 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4095a006fd90c63179904e2f7a406a36e7f781dc;p=emacs.git Fix setting completions* faces in `completion-pcm--hilit-commonality` so that these faces doesn't override possible already existing faces in other UIs. * lisp/minibuffer.el (completion-pcm--hilit-commonality): Use `add-face-text-property` instead of `put-text-property`. --- diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 779c3c88ae8..c2183a67ae5 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -3171,18 +3171,21 @@ one-letter-long matches).") (funcall update-score start start) (while md (funcall update-score start (car md)) - (put-text-property start (pop md) - 'face 'completions-common-part - str) + (add-face-text-property + start (pop md) + 'completions-common-part + nil str) (setq start (pop md))) (funcall update-score len len) - (put-text-property start end - 'face 'completions-common-part - str) + (add-face-text-property + start end + 'completions-common-part + nil str) (if (> (length str) pos) - (put-text-property pos (1+ pos) - 'face 'completions-first-difference - str)) + (add-face-text-property + pos (1+ pos) + 'completions-first-difference + nil str)) (unless (zerop (length str)) (put-text-property 0 1 'completion-score