# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 871078165 0
# Node ID 84c681e58fd5b530e65ec4972eed63815560bd6e
# Parent  c160218de690b986e6f68c552b1c0fddd3ae4ad4
(completion-setup-function): Don't set completion-base-size
when completing in a non-minibuffer.

diff -r c160218de690 -r 84c681e58fd5 lisp/simple.el
--- a/lisp/simple.el	Fri Aug 08 21:32:50 1997 +0000
+++ b/lisp/simple.el	Fri Aug 08 22:09:25 1997 +0000
@@ -3507,8 +3507,11 @@
 		  (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