branch: externals/tramp-hlo
commit 703c2b0d83a486d3010774eaf97b259b82d574f0
Author: Joe Sadusk <[email protected]>
Commit: Joe Sadusk <[email protected]>
Converted mapcars to one cl-loop
---
tramp-hlo.el | 13 +++++--------
1 file changed, 5 insertions(+), 8 deletions(-)
diff --git a/tramp-hlo.el b/tramp-hlo.el
index 9a4dc34354..3861395491 100644
--- a/tramp-hlo.el
+++ b/tramp-hlo.el
@@ -336,15 +336,12 @@ This function returns a plist with the fields:
tramp-hlo-dir-locals-find-file-cache-update-script
"dir_locals_find_file_cache_update")
(let* ((file-connection (file-remote-p file))
- (cache-dirs (mapcar #'car cache))
- (same-remote-cache-dirs (seq-filter
- (lambda (cache-dir)
- (string= file-connection
- (file-remote-p cache-dir)))
- cache-dirs))
- (cache-dirs-local (mapcar #'file-local-name same-remote-cache-dirs))
(cache-dirs-quoted
- (mapcar #'tramp-shell-quote-argument cache-dirs-local))
+ (cl-loop
+ for cache-entry in cache
+ when (string= file-connection (file-remote-p (car cache-entry)))
+ collect (tramp-shell-quote-argument
+ (file-local-name (car cache-entry)))))
(cache-dirs-string (string-join cache-dirs-quoted " "))
(command (format
"dir_locals_find_file_cache_update %s \".dir-locals.el
.dir-locals2.el\" %s"
