From 57199d9b746b4c65fc4b72c47f0fa1266bb8f9e5 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 22 Feb 2009 21:52:14 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 7 +++++++ lisp/dired-x.el | 12 ++++-------- 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 + + * 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 * 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))) -- 2.39.5