diff options
| author | Masatake YAMATO <jet@gyve.org> | 2004-04-16 08:57:51 +0000 |
|---|---|---|
| committer | Masatake YAMATO <jet@gyve.org> | 2004-04-16 08:57:51 +0000 |
| commit | 6a4940b235bf20a374992406b8b5052b186e51cc (patch) | |
| tree | ee17b4e7461398d89aa5a703ba9ec0cd9f21f4c3 /lisp/simple.el | |
| parent | 9a1120eaf937b43f1eb85bb16fc06666a654bca2 (diff) | |
| download | emacs-6a4940b235bf20a374992406b8b5052b186e51cc.tar.gz | |
(completions-common-part): Rename from completion-de-emphasis.
(completions-first-difference): Rename from completion-emphasis. Suggested by RMS.
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index f894529e120..6287090312c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -4116,12 +4116,12 @@ The completion list buffer is available as the value of `standard-output'.") ;; This function goes in completion-setup-hook, so that it is called ;; after the text of the completion list buffer is written. -(defface completion-emphasis +(defface completions-first-difference '((t (:inherit bold))) "Face put on the first uncommon character in completions in *Completions* buffer." :group 'completion) -(defface completion-de-emphasis +(defface completions-common-part '((t (:inherit default))) "Face put on the common prefix substring in completions in *Completions* buffer." :group 'completion) @@ -4154,7 +4154,7 @@ The completion list buffer is available as the value of `standard-output'.") (save-match-data (if (minibufferp mainbuf) (setq completion-base-size 0)))) - ;; Put emphasis and de-emphasis faces on completions. + ;; Put faces on first uncommon characters and common parts. (when completion-base-size (let* ((common-string-length (length (substring mbuf-contents @@ -4168,9 +4168,9 @@ The completion list buffer is available as the value of `standard-output'.") (when (and (get-char-property element-start 'mouse-face) (get-char-property element-common-end 'mouse-face)) (put-text-property element-start element-common-end - 'font-lock-face 'completion-de-emphasis) + 'font-lock-face 'completions-common-part) (put-text-property element-common-end (1+ element-common-end) - 'font-lock-face 'completion-emphasis)) + 'font-lock-face 'completions-first-difference)) (setq element-start (next-single-property-change element-start 'mouse-face)) |