aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2009-02-22 23:38:04 +0000
committerJuri Linkov2009-02-22 23:38:04 +0000
commitb8f908b3a47e085fb28c4ace9e62b30a64bbbe73 (patch)
tree324540ef1fb0cbe087c1a23cf79e53077b332d19
parentc521381a6cb6fc03358a2e2a3a15ddceea0272ec (diff)
downloademacs-b8f908b3a47e085fb28c4ace9e62b30a64bbbe73.tar.gz
emacs-b8f908b3a47e085fb28c4ace9e62b30a64bbbe73.zip
(minibuffer-default-add-dired-shell-commands): Doc fix.
-rw-r--r--lisp/ChangeLog12
-rw-r--r--lisp/dired-aux.el4
2 files changed, 13 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7f25c0064d8..cd1776997ed 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,19 @@
12009-02-22 Juri Linkov <juri@jurta.org> 12009-02-22 Juri Linkov <juri@jurta.org>
2 2
3 * dired-aux.el (minibuffer-default-add-dired-shell-commands):
4 Doc fix.
5
6 * dired-x.el (dired-guess-shell-command): Use read-shell-command
7 instead of read-from-minibuffer.
8 (dired-read-shell-command): Add code that uses
9 minibuffer-with-setup-hook to set minibuffer-default-add-function
10 to minibuffer-default-add-dired-shell-commands exactly like
11 `dired-read-shell-command' in dired-aux.el already does. Doc fix.
12
3 * dired-x.el (dired-smart-shell-command): Remove code that uses 13 * dired-x.el (dired-smart-shell-command): Remove code that uses
4 minibuffer-with-setup-hook to set minibuffer-default-add-function 14 minibuffer-with-setup-hook to set minibuffer-default-add-function
5 to minibuffer-default-add-shell-commands because the same code was 15 to minibuffer-default-add-shell-commands because the same code was
6 already moved to `read-shell-command' 2008-07-31. 16 already moved to `read-shell-command' 2008-07-31. (Bug#2414)
7 17
82009-02-21 Jay Belanger <jay.p.belanger@gmail.com> 182009-02-21 Jay Belanger <jay.p.belanger@gmail.com>
9 19
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 9d34d9542dc..95aaa388310 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -476,8 +476,8 @@ with a prefix argument."
476(declare-function mailcap-file-default-commands "mailcap" (files)) 476(declare-function mailcap-file-default-commands "mailcap" (files))
477 477
478(defun minibuffer-default-add-dired-shell-commands () 478(defun minibuffer-default-add-dired-shell-commands ()
479 "Return a list of all commands associted with current dired files. 479 "Return a list of all commands associated with current dired files.
480This function is used to add all related commands retieved by `mailcap' 480This function is used to add all related commands retrieved by `mailcap'
481to the end of the list of defaults just after the default value." 481to the end of the list of defaults just after the default value."
482 (interactive) 482 (interactive)
483 (let ((commands (and (boundp 'files) (require 'mailcap nil t) 483 (let ((commands (and (boundp 'files) (require 'mailcap nil t)