# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775518161 0
# Node ID 9d751556d1c717fa65704015cedf5cf3dda5cd36
# Parent  40ab7df62402eece5e2051d56cdebce846d70aa6
(mouse-choose-completion): Check for next-single-property-change
returning nil.

diff -r 40ab7df62402 -r 9d751556d1c7 lisp/mouse.el
--- a/lisp/mouse.el	Fri Jul 29 21:35:56 1994 +0000
+++ b/lisp/mouse.el	Fri Jul 29 21:42:41 1994 +0000
@@ -1204,7 +1204,8 @@
 	  (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)))