From c26bb96ea3cd409dc474cbba19cdde473ad1d345 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 5 Apr 1994 02:29:03 +0000 Subject: [PATCH] (completion-setup-function): Add mouse-face properties. --- lisp/simple.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index fc737b7ca45..e96ad8643a9 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2437,7 +2437,12 @@ Use \\\\[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)