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

returning nil.

(mouse-choose-completion): Check for next-single-property-change
returning nil.
2f5ed2e8 · Richard M. Stallman · 88dd3c24 · 2f5ed2e8
Commit 2f5ed2e8 authored Jul 29, 1994 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/mouse.el lisp/mouse.el +2 -1

No files found.
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -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)))