diff options
author | Juri Linkov <juri@jurta.org> | 2005-12-23 21:53:29 +0000 |
---|---|---|
committer | Juri Linkov <juri@jurta.org> | 2005-12-23 21:53:29 +0000 |
commit | 8a30a619e2c8d207a7edca9f373c09444099cce6 (patch) | |
tree | 0a92e168bc4f8559e905dce4e78315542c924fd2 /lisp/mouse.el | |
parent | 948072537209b320213a34b098dc2e43eca3a302 (diff) | |
download | emacs-8a30a619e2c8d207a7edca9f373c09444099cce6.tar.gz |
(mouse-choose-completion): Replace `buffer-substring' with
`buffer-substring-no-properties' to remove common substring highlighting.
Diffstat (limited to 'lisp/mouse.el')
-rw-r--r-- | lisp/mouse.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index b5881272835..b92413f7383 100644 --- 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) |