From c35be7ec907278bf13968530b2c091fd91a93eba Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 21 Mar 2008 23:52:27 +0000 Subject: [PATCH] (shell-dynamic-complete-command) (shell-dynamic-complete-environment-variable): Don't display completion messages when command is called in the minibuffer. --- lisp/shell.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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))))) -- 2.39.2