From: Juri Linkov <juri@jurta.org>
Date: Fri, 21 Mar 2008 23:52:27 +0000 (+0000)
Subject: (shell-dynamic-complete-command)
X-Git-Tag: emacs-pretest-23.0.90~7000
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c35be7ec907278bf13968530b2c091fd91a93eba;p=emacs.git

(shell-dynamic-complete-command)
(shell-dynamic-complete-environment-variable): Don't display
completion messages when command is called in the minibuffer.
---

diff --git a/lisp/shell.el b/lisp/shell.el
index b4b3dbf5283..7d20a877811 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -965,7 +965,8 @@ Returns t if successful."
 	     (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 @@ Returns non-nil if successful."
   (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)))))