diff options
author | Michael Albinus <michael.albinus@gmx.de> | 2022-05-21 15:20:10 +0200 |
---|---|---|
committer | Michael Albinus <michael.albinus@gmx.de> | 2022-05-21 15:20:10 +0200 |
commit | 56e81ca25b0b88df7d8659c60dc8abdd559a03c9 (patch) | |
tree | c433ae9405c68aa3588386b012a37b89abfd6619 /lisp/net/tramp-fuse.el | |
parent | 22ae842b346621095223213621f2244a5a59d3b8 (diff) | |
parent | f836ed098fe8c649e3c30cf55696b3a750f1bbf0 (diff) | |
download | emacs-56e81ca25b0b88df7d8659c60dc8abdd559a03c9.tar.gz |
Merge from origin/emacs-28
f836ed098f Some minor Tramp fixes
Diffstat (limited to 'lisp/net/tramp-fuse.el')
-rw-r--r-- | lisp/net/tramp-fuse.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lisp/net/tramp-fuse.el b/lisp/net/tramp-fuse.el index 596c08f04c1..20be74a79b7 100644 --- a/lisp/net/tramp-fuse.el +++ b/lisp/net/tramp-fuse.el @@ -44,11 +44,16 @@ (delete-file (tramp-fuse-local-file-name filename) trash) (tramp-flush-file-properties v localname))) +(defvar tramp-fuse-remove-hidden-files nil + "Remove hidden files from directory listings.") + (defsubst tramp-fuse-remove-hidden-files (files) "Remove hidden files from FILES." - (cl-remove-if - (lambda (x) (and (stringp x) (string-match-p "\\.fuse_hidden" x))) - files)) + (if tramp-fuse-remove-hidden-files + (cl-remove-if + (lambda (x) (and (stringp x) (string-match-p "\\.fuse_hidden" x))) + files) + files)) (defun tramp-fuse-handle-directory-files (directory &optional full match nosort count) |