mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

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

Browse Source 
face on full completion string too (i.e. completion string without
completions-first-difference face).
This commit is contained in:
Juri Linkov 2005-12-04 02:42:29 +00:00
parent 544d874f7f
commit a0bd072bed
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/simple.el
View File

@ -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)