From fd16fcce5225ff5163b962628796bb515dcc9f27 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 11 Nov 2025 12:38:38 +0000 Subject: [PATCH] ; minibuffer-default-add-shell-commands: Use 'and' not 'unless'. --- lisp/simple.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index fdf8b79444d..2ee04177892 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -4317,8 +4317,8 @@ stdout will be intermixed in the output stream.") This function is used to add all related commands retrieved by `shell-command-guess' to the end of the list of defaults just after the default value." - (let* ((filename (unless (consp minibuffer-default) - minibuffer-default)) + (let* ((filename (and (atom minibuffer-default) + minibuffer-default)) (commands (and filename (require 'dired-aux) (shell-command-guess (list filename))))) (setq commands (mapcar (lambda (command)