From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 29 Jul 1994 21:42:41 +0000 (+0000)
Subject: (mouse-choose-completion): Check for next-single-property-change
X-Git-Tag: emacs-19.34~7472
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2f5ed2e8b3d75043cf246e41ed8a000864ae6012;p=emacs.git

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

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 21264adf6ad..1e9b664c36e 100644
--- 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)))