Commit 88dd3c24 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent aba6cc35
......@@ -2491,7 +2491,7 @@ it were the arg to `interactive' (which see) to interactively read the value."
(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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment