Commit 2d2eeace authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(choose-completion):

Include words separated by single spaces in the completion.
parent b6be5d95
......@@ -2438,8 +2438,16 @@ it were the arg to `interactive' (which see) to interactively read the value."
(interactive)
(let (beg end)
(skip-chars-forward "^ \t\n")
(while (looking-at " [^ \n\t]")
(forward-char 1)
(skip-chars-forward "^ \t\n"))
(setq end (point))
(skip-chars-backward "^ \t\n")
(while (and (= (preceding-char) ?\ )
(not (and (> (point) (1+ (point-min)))
(= (char-after (- (point) 2)) ?\ ))))
(backward-char 1)
(skip-chars-backward "^ \t\n"))
(setq beg (point))
(choose-completion-string (buffer-substring beg end))))
......
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