diff options
| author | Juri Linkov | 2005-12-23 21:53:29 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-12-23 21:53:29 +0000 |
| commit | 8a30a619e2c8d207a7edca9f373c09444099cce6 (patch) | |
| tree | 0a92e168bc4f8559e905dce4e78315542c924fd2 | |
| parent | 948072537209b320213a34b098dc2e43eca3a302 (diff) | |
| download | emacs-8a30a619e2c8d207a7edca9f373c09444099cce6.tar.gz emacs-8a30a619e2c8d207a7edca9f373c09444099cce6.zip | |
(mouse-choose-completion): Replace `buffer-substring' with
`buffer-substring-no-properties' to remove common substring highlighting.
| -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." | |||
| 2230 | (setq beg (previous-single-property-change beg 'mouse-face)) | 2230 | (setq beg (previous-single-property-change beg 'mouse-face)) |
| 2231 | (setq end (or (next-single-property-change end 'mouse-face) | 2231 | (setq end (or (next-single-property-change end 'mouse-face) |
| 2232 | (point-max))) | 2232 | (point-max))) |
| 2233 | (setq choice (buffer-substring beg end))))) | 2233 | (setq choice (buffer-substring-no-properties beg end))))) |
| 2234 | (let ((owindow (selected-window))) | 2234 | (let ((owindow (selected-window))) |
| 2235 | (select-window (posn-window (event-start event))) | 2235 | (select-window (posn-window (event-start event))) |
| 2236 | (if (and (one-window-p t 'selected-frame) | 2236 | (if (and (one-window-p t 'selected-frame) |