branch: elpa/helm
commit 69dbdf7f4209666b07e2e971f684fbc29dde44d9
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
Simplify file-name-handler-alist let-binding in
helm-local-directory-files.
No need to let-bind a copy of it and then modify it destructively,
just compute it non destructively directly in the let-binding.
---
helm-lib.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/helm-lib.el b/helm-lib.el
index 611c7f7c7d..b84f9b324b 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1823,9 +1823,12 @@ Directories expansion is not supported."
Take same args as `directory-files'."
(require 'tramp)
- (let ((file-name-handler-alist (copy-tree file-name-handler-alist))
+ (let ((file-name-handler-alist
+ (cl-loop for (re . sym) in file-name-handler-alist
+ unless (and (symbolp sym)
+ (string-prefix-p "tramp-" (symbol-name sym)))
+ collect `(,re . ,sym)))
tramp-mode)
- (tramp-unload-file-name-handlers)
(apply #'directory-files directory args)))
;;; helm internals
