Make Dired honor `insert-directory-program´ with globs

Starting with commit 6f6639d6ed
(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.
This commit is contained in:
Stefan Kangas 2023-10-23 13:57:28 +02:00
parent 43127294e1
commit 79d8328ca4

View file

@ -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)