Mercurial > emacs

diff lisp/simple.el @ 7697:b52a92ea3796

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(choose-completion-string): Clear mouse-face property.
author Richard M. Stallman <rms@gnu.org>
date Thu, 26 May 1994 23:15:32 +0000
parents 23edba0a5c5e
children 3d3717bb5405
line wrap: on
line diff
--- a/lisp/simple.el	Thu May 26 23:06:50 1994 +0000
+++ b/lisp/simple.el	Thu May 26 23:15:32 1994 +0000
@@ -2482,6 +2482,8 @@
       (set-buffer buffer)
       (choose-completion-delete-max-match choice)
       (insert choice)
+      (remove-text-properties (- (point) (length choice)) (point)
+			      '(mouse-face nil))
       ;; Update point in the window that BUFFER is showing in.
       (let ((window (get-buffer-window buffer t)))
 	(set-window-point window (point)))