Mercurial > emacs

changeset 6674:7ada27b4bf3c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(completion-setup-function): Add mouse-face properties.
author Karl Heuer <kwzh@gnu.org>
date Tue, 05 Apr 1994 02:29:03 +0000
parents 137122de77ef
children cf38c5af079d
files lisp/simple.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Tue Apr 05 02:19:02 1994 +0000
+++ b/lisp/simple.el	Tue Apr 05 02:29:03 1994 +0000
@@ -2437,7 +2437,12 @@
 		   "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)