From 63240af11720e7c6d9fd75f026a198d0090e39a2 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 26 May 1994 23:15:32 +0000
Subject: [PATCH] (choose-completion-string): Clear mouse-face property.

---
 lisp/simple.el | 2 ++
 1 file changed, 2 insertions(+)

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)))
-- 
2.39.5