# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1135374809 0
# Node ID 01ba52243e5f2998ed5136ef775314847c5b4e54
# Parent  0c0bb618627a8819599a82bd7a4e39dfb64c2064
(mouse-choose-completion): Replace `buffer-substring' with
`buffer-substring-no-properties' to remove common substring highlighting.

diff -r 0c0bb618627a -r 01ba52243e5f lisp/mouse.el
--- a/lisp/mouse.el	Fri Dec 23 21:52:00 2005 +0000
+++ b/lisp/mouse.el	Fri Dec 23 21:53:29 2005 +0000
@@ -2230,7 +2230,7 @@
 	  (setq beg (previous-single-property-change beg 'mouse-face))
 	  (setq end (or (next-single-property-change end 'mouse-face)
 			(point-max)))
-	  (setq choice (buffer-substring beg end)))))
+	  (setq choice (buffer-substring-no-properties beg end)))))
     (let ((owindow (selected-window)))
       (select-window (posn-window (event-start event)))
       (if (and (one-window-p t 'selected-frame)