Commit 19183a29 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(completion-setup-function): Don't set completion-base-size

when completing in a non-minibuffer.
parent 5017dcaa
......@@ -3507,8 +3507,11 @@ If this function moves point, it can alter the end of that completion.")
(goto-char (point-max))
(skip-chars-backward (format "^%c" directory-sep-char))
(- (point) (point-min))))
;; Otherwise, the whole input is the text being completed.
(setq completion-base-size 0))
;; Otherwise, in minibuffer, the whole input is being completed.
(save-match-data
(if (string-match "\\` \\*Minibuf-[0-9]+\\*\\'"
(buffer-name mainbuf))
(setq completion-base-size 0))))
(goto-char (point-min))
(if window-system
(insert (substitute-command-keys
......
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