emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master bfdccfa141 1/3: Fix namespace problem in dired-aux.el


From: Stefan Kangas
Subject: master bfdccfa141 1/3: Fix namespace problem in dired-aux.el
Date: Thu, 4 Aug 2022 06:39:33 -0400 (EDT)

branch: master
commit bfdccfa141fa02f59a6b60fb92a1312feed823be
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    Fix namespace problem in dired-aux.el
    
    * 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.
---
 lisp/dired-aux.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index bb24954386..c8de2669ea 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -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)
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]