Mercurial > emacs
changeset 102195:1c6cb8760e45
(dired-smart-shell-command): Remove code that uses
minibuffer-with-setup-hook to set minibuffer-default-add-function
to minibuffer-default-add-shell-commands because the same code was
already moved to `read-shell-command' 2008-07-31.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sun, 22 Feb 2009 21:51:38 +0000 |
| parents | 51056176663a |
| children | f79620dcce7f |
| files | lisp/dired-x.el |
| diffstat | 1 files changed, 4 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-x.el Sun Feb 22 21:17:26 2009 +0000 +++ b/lisp/dired-x.el Sun Feb 22 21:51:38 2009 +0000 @@ -843,14 +843,10 @@ "Like function `shell-command', but in the current Virtual Dired directory." (interactive (list - (minibuffer-with-setup-hook - (lambda () - (set (make-local-variable 'minibuffer-default-add-function) - 'minibuffer-default-add-shell-commands)) - (read-shell-command "Shell command: " nil nil - (cond - (buffer-file-name (file-relative-name buffer-file-name)) - ((eq major-mode 'dired-mode) (dired-get-filename t t))))) + (read-shell-command "Shell command: " nil nil + (cond + (buffer-file-name (file-relative-name buffer-file-name)) + ((eq major-mode 'dired-mode) (dired-get-filename t t)))) current-prefix-arg shell-command-default-error-buffer)) (let ((default-directory (dired-default-directory)))