mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-04 22:50:59 -08:00
Code Issues Projects Releases Wiki Activity

(completion-setup-function): Add mouse-face properties.

Browse source
This commit is contained in:
Karl Heuer 1994-04-05 02:29:03 +00:00
parent 676a14e169
commit c26bb96ea3
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/simple.el
View file

@ -2437,7 +2437,12 @@ Use \\<completion-list-mode-map>\\[mouse-choose-completion] to select one\
"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")))))
select the completion near point.\n\n"))
(forward-line 1)
(if window-system
(while (re-search-forward "[^ \t\n]+" nil t)
(put-text-property (match-beginning 0) (match-end 0)
'mouse-face 'highlight))))))
(add-hook 'completion-setup-hook 'completion-setup-function)