mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-05 22:20:24 -08:00
Code Issues Projects Releases Wiki Activity

; minibuffer-default-add-shell-commands: Use 'and' not 'unless'.

Browse source
This commit is contained in:
Sean Whitton 2025-11-11 12:38:38 +00:00
parent 48ef7d91b1
commit fd16fcce52
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/simple.el
View file

@ -4317,7 +4317,7 @@ stdout will be intermixed in the output stream.")
This function is used to add all related commands retrieved by This function is used to add all related commands retrieved by
`shell-command-guess' to the end of the list of defaults just `shell-command-guess' to the end of the list of defaults just
after the default value." after the default value."
(let* ((filename (unless (consp minibuffer-default) (let* ((filename (and (atom minibuffer-default)
minibuffer-default)) minibuffer-default))
(commands (and filename (require 'dired-aux) (commands (and filename (require 'dired-aux)
(shell-command-guess (list filename))))) (shell-command-guess (list filename)))))