Mercurial > emacs
comparison lisp/mouse.el @ 67779:01ba52243e5f
(mouse-choose-completion): Replace `buffer-substring' with
`buffer-substring-no-properties' to remove common substring highlighting.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 23 Dec 2005 21:53:29 +0000 |
| parents | 9014ad13a926 |
| children | 60b2bb5ad00f |
comparison
equal
deleted
inserted
replaced
| 67778:0c0bb618627a | 67779:01ba52243e5f |
|---|---|
| 2228 (if (null beg) | 2228 (if (null beg) |
| 2229 (error "No completion here")) | 2229 (error "No completion here")) |
| 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) |
| 2237 (window-dedicated-p (selected-window))) | 2237 (window-dedicated-p (selected-window))) |
| 2238 ;; This is a special buffer's frame | 2238 ;; This is a special buffer's frame |