master 5e385eb: Restore evaluation logic in dired-guess-default

[Lars Ingebrigtsen]

branch: master
commit 5e385eb49dbf4f3ccf68a6670e245a309e4393c4
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Restore evaluation logic in dired-guess-default
    
    * lisp/dired-x.el (dired-guess-default): Restore the `eval' bits
    also removed in a previous commit (bug#48071).
---
 lisp/dired-x.el | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 073923e..a7bfae7 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -975,17 +975,20 @@ See `dired-guess-shell-alist-user'."
   (let* ((case-fold-search dired-guess-shell-case-fold-search)
          (programs
           (delete-dups
-           (seq-reduce
-            #'append
-            (mapcar #'cdr
-                    (seq-filter (lambda (elem)
-                                  (seq-every-p
-                                   (lambda (file)
-                                     (string-match-p (car elem) file))
-                                   files))
-                                (append dired-guess-shell-alist-user
-                                        dired-guess-shell-alist-default)))
-            nil))))
+           (mapcar
+            (lambda (command)
+              (eval command `((file . ,(car files)))))
+            (seq-reduce
+             #'append
+             (mapcar #'cdr
+                     (seq-filter (lambda (elem)
+                                   (seq-every-p
+                                    (lambda (file)
+                                      (string-match-p (car elem) file))
+                                    files))
+                                 (append dired-guess-shell-alist-user
+                                         dired-guess-shell-alist-default)))
+             nil)))))
     (if (length= programs 1)
         (car programs)
       programs)))