From 2f5ed2e8b3d75043cf246e41ed8a000864ae6012 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 29 Jul 1994 21:42:41 +0000 Subject: [PATCH] (mouse-choose-completion): Check for next-single-property-change returning nil. --- lisp/mouse.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.5