mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases 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
Show Stats 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)