(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.

2 files changed, 11 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 44ddc6a3485..7f25c0064d8 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2009-02-22  Juri Linkov  <juri@jurta.org>
+
+        * dired-x.el (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.
+
 2009-02-21  Jay Belanger  <jay.p.belanger@gmail.com>
 
         * calc/calc-math.el (math-use-emacs-fn): Make sure that the
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)))