# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1206143547 0
# Node ID 503666735e0c86bb2d57d971114f4d1419ab37d8
# Parent  13f0e673b94ba971412fe881c6cf481323f0e57f
(shell-dynamic-complete-command)
(shell-dynamic-complete-environment-variable): Don't display
completion messages when command is called in the minibuffer.

diff -r 13f0e673b94b -r 503666735e0c lisp/shell.el
--- a/lisp/shell.el	Fri Mar 21 23:51:40 2008 +0000
+++ b/lisp/shell.el	Fri Mar 21 23:52:27 2008 +0000
@@ -965,7 +965,8 @@
 	     (save-match-data (not (string-match "[~/]" filename)))
 	     (eq (match-beginning 0)
 		 (save-excursion (shell-backward-command 1) (point))))
-	(prog2 (message "Completing command name...")
+	(prog2 (unless (window-minibuffer-p (selected-window))
+		 (message "Completing command name..."))
 	    (shell-dynamic-complete-as-command)))))
 
 
@@ -1040,7 +1041,8 @@
   (interactive)
   (let ((variable (shell-match-partial-variable)))
     (if (and variable (string-match "^\\$" variable))
-	(prog2 (message "Completing variable name...")
+	(prog2 (unless (window-minibuffer-p (selected-window))
+		 (message "Completing variable name..."))
 	    (shell-dynamic-complete-as-environment-variable)))))