andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(shell-dynamic-complete-command)

Browse source 
(shell-dynamic-complete-environment-variable): Don't display
completion messages when command is called in the minibuffer.
This commit is contained in:
Juri Linkov 2008-03-21 23:52:27 +00:00
parent 4b0dc1de40
commit c35be7ec90
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/shell.el
View file

@ -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)))))