procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix use of "dired" in Tramp

Browse source 
* lisp/net/tramp-sh.el (tramp-sh-handle-insert-directory): Do not
use "--dired" when long format output isn't requested.
This commit is contained in:
Michael Albinus 2024-04-21 12:54:17 +02:00
parent 3dfca6f9c7
commit 9c01da56a5
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/net/tramp-sh.el
View file

@ -2653,6 +2653,18 @@ The method used must be an out-of-band method."
(let ((dired (tramp-get-ls-command-with v "--dired")))
(when (stringp switches)
(setq switches (split-string switches)))
;; Newer coreutil versions of ls (9.5 and up) imply long format
;; output when "--dired" is given. Suppress this implicit rule.
(when dired
(let ((tem switches)
case-fold-search)
(catch 'long
(while tem
(when (and (not (string-match-p "--" (car tem)))
(string-match-p "l" (car tem)))
(throw 'long nil))
(setq tem (cdr tem)))
(setq dired nil))))
(setq switches
(append switches (split-string (tramp-sh--quoting-style-options v))
(when dired `(,dired))))