summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJuri Linkov <juri@jurta.org>2009-02-22 21:51:38 +0000
committerJuri Linkov <juri@jurta.org>2009-02-22 21:51:38 +0000
commit760362f100f8a32ef793fc4a216d6aa74aa26984 (patch)
treeafd5886afcf41f1017abe5aa6f58756dcd052607
parentd512101502a2cad21ff25fd064e93f1316085bdb (diff)
downloademacs-760362f100f8a32ef793fc4a216d6aa74aa26984.tar.gz
(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.
-rw-r--r--lisp/dired-x.el12
1 files changed, 4 insertions, 8 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 0dd36800916..9570ecda71f 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -843,14 +843,10 @@ Knows about the special cases in variable `default-directory-alist'."
"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)))