Commit 2f5ed2e8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

returning nil.
parent 88dd3c24
......@@ -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)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment