emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]