mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-choose-completion): Check for next-single-property-change

Browse source 
returning nil.
This commit is contained in:
Richard M. Stallman 1994-07-29 21:42:41 +00:00
parent 88dd3c24e8
commit 2f5ed2e8b3
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/mouse.el
View file

@ -1204,7 +1204,8 @@ and selects that window."
(if (null beg)
(error "No completion here"))
(setq beg (previous-single-property-change beg 'mouse-face))
(setq end (next-single-property-change end 'mouse-face))
(setq end (or (next-single-property-change end 'mouse-face)
(point-max)))
(setq choice (buffer-substring beg end)))))
(let ((owindow (selected-window)))
(select-window (posn-window (event-start event)))