diff options
Diffstat (limited to 'lisp/shell.el')
| -rw-r--r-- | lisp/shell.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/shell.el b/lisp/shell.el index a78ab7f81ab..3ca2564b65c 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -1122,7 +1122,7 @@ Returns t if successful." | |||
| 1122 | (interactive) | 1122 | (interactive) |
| 1123 | (let ((data (shell-command-completion))) | 1123 | (let ((data (shell-command-completion))) |
| 1124 | (if data | 1124 | (if data |
| 1125 | (prog2 (unless (window-minibuffer-p (selected-window)) | 1125 | (prog2 (unless (window-minibuffer-p) |
| 1126 | (message "Completing command name...")) | 1126 | (message "Completing command name...")) |
| 1127 | (apply #'completion-in-region data))))) | 1127 | (apply #'completion-in-region data))))) |
| 1128 | 1128 | ||
| @@ -1232,7 +1232,7 @@ Returns non-nil if successful." | |||
| 1232 | (interactive) | 1232 | (interactive) |
| 1233 | (let ((data (shell-environment-variable-completion))) | 1233 | (let ((data (shell-environment-variable-completion))) |
| 1234 | (if data | 1234 | (if data |
| 1235 | (prog2 (unless (window-minibuffer-p (selected-window)) | 1235 | (prog2 (unless (window-minibuffer-p) |
| 1236 | (message "Completing variable name...")) | 1236 | (message "Completing variable name...")) |
| 1237 | (apply #'completion-in-region data))))) | 1237 | (apply #'completion-in-region data))))) |
| 1238 | 1238 | ||