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

diff --git a/lisp/simple.el b/lisp/simple.el
index fc737b7ca45b805039b9c48633649f41d495a5e5..e96ad8643a9d6d6fa0ab2466947b4d7fc0b24aa2 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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)
 \f