Mercurial > emacs
changeset 93133:503666735e0c
(shell-dynamic-complete-command)
(shell-dynamic-complete-environment-variable): Don't display
completion messages when command is called in the minibuffer.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 21 Mar 2008 23:52:27 +0000 |
| parents | 13f0e673b94b |
| children | 4e8466e2b7c4 |
| files | lisp/shell.el |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))