martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

lisp/net/tramp.el: Fix performance regression with completions

Browse Source 
* lisp/net/tramp.el (tramp-skeleton-file-name-all-completions):
Use `file-directory-p' directly instead of calling `file-symlink-p'
and file-truename first.  Since `file-directory-p' already follows
symlinks, symlinked directories are handled correctly without the
extra indirection.
This commit is contained in:
Joseph Mingrone
2026-04-04 19:26:56 -03:00
committed by Michael Albinus
parent 5bd8f3a44a
commit 358a7ba0f6
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/net/tramp.el
View File

@@ -3027,16 +3027,14 @@ BODY is the backend specific code."
(format
"file-name-all-completions-%s"
tramp-fnac-add-trailing-slash)
;; Mark symlinked directories. Other
;; directories are already marked.
;; Mark directories, including symlinks to
;; directories.
(mapcar
(lambda (x)
(let ((f (file-name-concat ,directory x)))
(if (and tramp-fnac-add-trailing-slash
(not (string-suffix-p "/" x))
(file-directory-p
(if (file-symlink-p f)
(file-truename f) f)))
(file-directory-p f))
(concat x "/") x)))
;; Some storage systems do not return "." and "..".
(seq-union