[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/helm e991814db4: Prevent unexpected tramp connection in fi
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/helm e991814db4: Prevent unexpected tramp connection in file-name-history |
Date: |
Wed, 7 Dec 2022 05:59:14 -0500 (EST) |
branch: elpa/helm
commit e991814db477dfadeb8fcdd7da9a1770e6b57b7e
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>
Prevent unexpected tramp connection in file-name-history
---
helm-files.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/helm-files.el b/helm-files.el
index cf3a743004..696be201c8 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -6236,18 +6236,18 @@ be directories."
(defun helm-file-name-history-transformer (candidates _source)
(cl-loop with lgst = (cl-loop for c in candidates maximize (length c))
for c in candidates
- for last-access = (format-time-string "%d/%m/%Y %X"
- (nth 4 (file-attributes c)))
for disp = (cond ((or (file-remote-p c)
(and (fboundp 'tramp-archive-file-name-p)
(tramp-archive-file-name-p c)))
(propertize c 'face 'helm-history-remote))
((file-exists-p c)
- (propertize
- c 'display
- (concat (propertize c 'face 'helm-ff-file)
- (make-string (1+ (- lgst (length c))) ? )
- last-access)))
+ (let ((last-access (format-time-string "%d/%m/%Y
%X"
+ (nth 4 (file-attributes c)))))
+ (propertize
+ c 'display
+ (concat (propertize c 'face 'helm-ff-file)
+ (make-string (1+ (- lgst (length c)))
? )
+ last-access))))
(t (unless helm-file-name-history-hide-deleted
(propertize c 'face 'helm-history-deleted))))
when disp
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [nongnu] elpa/helm e991814db4: Prevent unexpected tramp connection in file-name-history,
ELPA Syncer <=