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

diff -r 466112a5ae5a -r 40ab7df62402 lisp/simple.el
--- a/lisp/simple.el	Fri Jul 29 21:26:38 1994 +0000
+++ b/lisp/simple.el	Fri Jul 29 21:35:56 1994 +0000
@@ -2491,7 +2491,7 @@
     (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)))
     (choose-completion-string (buffer-substring beg end))))
 
 ;; Delete the longest partial match for STRING