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

when completing in a non-minibuffer.

diff --git a/lisp/simple.el b/lisp/simple.el
index f0fba7da342b749b17cc9cde9f7599ecaf4e8033..a00368e47a564e3e1df541745b4809cd5d6533e3 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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