changeset 7697:b52a92ea3796

(choose-completion-string): Clear mouse-face property.
author Richard M. Stallman <rms@gnu.org>
date Thu, 26 May 1994 23:15:32 +0000
parents ebcefadd2e1b
children 3d3717bb5405
files lisp/simple.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
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)))