(mouse-choose-completion): Replace `buffer-substring' with

`buffer-substring-no-properties' to remove common substring highlighting.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index b5881272835f35bfb1e45c629d6aea0052e051bb..b92413f73836ff1215022606c2d80b790c66743b 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -2230,7 +2230,7 @@ and selects that window."
          (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)