Commit a0bd072b authored by Juri Linkov's avatar Juri Linkov
Browse files

(completion-setup-function): Put completions-common-part

face on full completion string too (i.e. completion string without
completions-first-difference face).
parent 544d874f
...@@ -4970,12 +4970,13 @@ is the substring.)") ...@@ -4970,12 +4970,13 @@ is the substring.)")
(< (setq element-common-end (< (setq element-common-end
(+ element-start common-string-length)) (+ element-start common-string-length))
maxp)) maxp))
(when (and (get-char-property element-start 'mouse-face) (when (get-char-property element-start 'mouse-face)
(get-char-property element-common-end 'mouse-face)) (if (get-char-property (1- element-common-end) 'mouse-face)
(put-text-property element-start element-common-end (put-text-property element-start element-common-end
'font-lock-face 'completions-common-part) 'font-lock-face 'completions-common-part))
(put-text-property element-common-end (1+ element-common-end) (if (get-char-property element-common-end 'mouse-face)
'font-lock-face 'completions-first-difference))))) (put-text-property element-common-end (1+ element-common-end)
'font-lock-face 'completions-first-difference))))))
;; Insert help string. ;; Insert help string.
(goto-char (point-min)) (goto-char (point-min))
(if (display-mouse-p) (if (display-mouse-p)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment