Mercurial > emacs

comparison lisp/simple.el @ 67299:8aa8220db142

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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")))