mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-11 05:51:21 -08:00
Code Issues Projects Releases Wiki Activity

(completion-show-help): New defcustom.

Browse source 
(completion-setup-function): Heed it.
This commit is contained in:
John Paul Wallington 2006-09-04 18:26:03 +00:00
parent 8f921acb25
commit d0fd091694
2 changed files with 20 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/simple.el
View file

@ -4984,6 +4984,12 @@ value of `completion-common-substring'. See also `display-completion-list'.")
;; Variables and faces used in `completion-setup-function'.
(defcustom completion-show-help t
"Non-nil means show help message in *Completions* buffer."
:type 'boolean
:version "22.1"
:group 'completion)
(defface completions-first-difference
'((t (:inherit bold)))
"Face put on the first uncommon character in completions in *Completions* buffer."
@ -5070,14 +5076,15 @@ of the minibuffer before point is always the common substring.)")
(if (get-char-property element-common-end 'mouse-face)
(put-text-property element-common-end (1+ element-common-end)
'font-lock-face 'completions-first-difference))))))
;; Insert help string.
(goto-char (point-min))
(if (display-mouse-p)
(insert (substitute-command-keys
"Click \\[mouse-choose-completion] on a completion to select it.\n")))
(insert (substitute-command-keys
"In this buffer, type \\[choose-completion] to \
select the completion near point.\n\n")))))
;; Maybe insert help string.
(when completion-show-help
(goto-char (point-min))
(if (display-mouse-p)
(insert (substitute-command-keys
"Click \\[mouse-choose-completion] on a completion to select it.\n")))
(insert (substitute-command-keys
"In this buffer, type \\[choose-completion] to \
select the completion near point.\n\n"))))))
(add-hook 'completion-setup-hook 'completion-setup-function)