emacs-29 79d8328ca4a: Make Dired honor `insert-directory-program´ with globs

[Stefan Kangas]

branch: emacs-29
commit 79d8328ca4a7506e394f7f068564dd44a9acd919
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Make Dired honor `insert-directory-program´ with globs
    
    Starting with commit 6f6639d6ed6c6314b2643f6c22498fc2e23d34c7
    (Bug#27631), Dired stopped respecting the value of
    'insert-directory-program' when using directory wildcards/globs.
    
    * lisp/dired.el (dired-insert-directory): Honor the value of
    'insert-directory-program' when using directory wildcards.
---
 lisp/dired.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/dired.el b/lisp/dired.el
index e5110e76a76..f81e49a6b00 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -1664,7 +1664,9 @@ see `dired-use-ls-dired' for more details.")
              (when (file-remote-p dir)
                (setq switches (string-replace "--dired" "" switches)))
              (let* ((default-directory (car dir-wildcard))
-                    (script (format "ls %s %s" switches (cdr dir-wildcard)))
+                    (script (format "%s %s %s"
+                                    insert-directory-program
+                                    switches (cdr dir-wildcard)))
                     (remotep (file-remote-p dir))
                     (sh (or (and remotep "/bin/sh")
                             (executable-find shell-file-name)