Mercurial > emacs
comparison lisp/simple.el @ 67299:8aa8220db142
(completion-setup-function): Put completions-common-part
face on full completion string too (i.e. completion string without
completions-first-difference face).
author | Juri Linkov <juri@jurta.org> |
---|---|
date | Sun, 04 Dec 2005 02:42:29 +0000 |
parents | 4f8e0edba613 |
children | 0d03cdfa9108 37d0562504bf |
comparison
equal
deleted
inserted
replaced
67298:7af5860f4444 | 67299:8aa8220db142 |
---|---|
4968 (next-single-property-change | 4968 (next-single-property-change |
4969 element-start 'mouse-face)) | 4969 element-start 'mouse-face)) |
4970 (< (setq element-common-end | 4970 (< (setq element-common-end |
4971 (+ element-start common-string-length)) | 4971 (+ element-start common-string-length)) |
4972 maxp)) | 4972 maxp)) |
4973 (when (and (get-char-property element-start 'mouse-face) | 4973 (when (get-char-property element-start 'mouse-face) |
4974 (get-char-property element-common-end 'mouse-face)) | 4974 (if (get-char-property (1- element-common-end) 'mouse-face) |
4975 (put-text-property element-start element-common-end | 4975 (put-text-property element-start element-common-end |
4976 'font-lock-face 'completions-common-part) | 4976 'font-lock-face 'completions-common-part)) |
4977 (put-text-property element-common-end (1+ element-common-end) | 4977 (if (get-char-property element-common-end 'mouse-face) |
4978 'font-lock-face 'completions-first-difference))))) | 4978 (put-text-property element-common-end (1+ element-common-end) |
4979 'font-lock-face 'completions-first-difference)))))) | |
4979 ;; Insert help string. | 4980 ;; Insert help string. |
4980 (goto-char (point-min)) | 4981 (goto-char (point-min)) |
4981 (if (display-mouse-p) | 4982 (if (display-mouse-p) |
4982 (insert (substitute-command-keys | 4983 (insert (substitute-command-keys |
4983 "Click \\[mouse-choose-completion] on a completion to select it.\n"))) | 4984 "Click \\[mouse-choose-completion] on a completion to select it.\n"))) |