mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

Fix namespace problem in dired-aux.el

Browse source 
* lisp/dired-aux.el (dired-minibuffer-default-add-shell-commands):
Rename from 'minibuffer-default-add-dired-shell-commands'.  Retain
old name as an obsolete alias.
This commit is contained in:
Stefan Kangas 2022-08-04 12:14:10 +02:00
parent 87ac0b945f
commit bfdccfa141
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/dired-aux.el
View file

@ -760,7 +760,7 @@ with a prefix argument."
(defvar dired-aux-files)
(defun minibuffer-default-add-dired-shell-commands ()
(defun dired-minibuffer-default-add-shell-commands ()
"Return a list of all commands associated with current dired files.
This function is used to add all related commands retrieved by `mailcap'
to the end of the list of defaults just after the default value."
@ -787,7 +787,7 @@ offer a smarter default choice of shell command."
(lambda ()
(setq-local dired-aux-files files)
(setq-local minibuffer-default-add-function
#'minibuffer-default-add-dired-shell-commands))
#'dired-minibuffer-default-add-shell-commands))
(setq prompt (format prompt (dired-mark-prompt arg files)))
(if (functionp 'dired-guess-shell-command)
(dired-mark-pop-up nil 'shell files
@ -3529,6 +3529,9 @@ in the Dired buffer."
(setq model (vc-checkout-model backend only-files-list))))
(list backend files only-files-list state model)))
(define-obsolete-function-alias 'minibuffer-default-add-dired-shell-commands
#'dired-minibuffer-default-add-shell-commands "29.1")
(provide 'dired-aux)