[Emacs-diffs] emacs/lisp dired-x.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/02/22 21:51:38

Modified files:
        lisp           : dired-x.el 

Log message:
        (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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/dired-x.el?cvsroot=emacs&r1=1.96&r2=1.97

Patches:
Index: dired-x.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/dired-x.el,v
retrieving revision 1.96
retrieving revision 1.97
diff -u -b -r1.96 -r1.97
--- dired-x.el  27 Jan 2009 03:45:09 -0000      1.96
+++ dired-x.el  22 Feb 2009 21:51:38 -0000      1.97
@@ -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)))))
+                        ((eq major-mode 'dired-mode) (dired-get-filename t 
t))))
     current-prefix-arg
     shell-command-default-error-buffer))
   (let ((default-directory (dired-default-directory)))