(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 b4b3dbf52832056bbaf152b36e02e30b9ff2ca36..7d20a877811910646c7d5c7e5a4fb923c36cbe8d 100644 (file)
--- 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)))))