From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 26 May 1994 23:15:32 +0000 (+0000)
Subject: (choose-completion-string): Clear mouse-face property.
X-Git-Tag: emacs-19.34~8156
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=63240af11720e7c6d9fd75f026a198d0090e39a2;p=emacs.git

(choose-completion-string): Clear mouse-face property.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 5f58d18e74e..13c44666a37 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2482,6 +2482,8 @@ it were the arg to `interactive' (which see) to interactively read the value."
       (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)))