Mercurial > emacs
diff lisp/simple.el @ 8380:40ab7df62402
(choose-completion): Check for next-single-property-change returning nil.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 29 Jul 1994 21:35:56 +0000 |
parents | a4dbf8e6c78f |
children | 05efaa4966e0 |
line wrap: on
line diff
--- 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