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

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/helm 2e7d76d018 2/2: Fix previous commit, output of file-s


From: ELPA Syncer
Subject: [nongnu] elpa/helm 2e7d76d018 2/2: Fix previous commit, output of file-symlink-p is not reliable on
Date: Sat, 17 Sep 2022 13:58:49 -0400 (EDT)

branch: elpa/helm
commit 2e7d76d01828df577f89a088d97812f324cd5e28
Author: Thierry Volpiatto <thievol@posteo.net>
Commit: Thierry Volpiatto <thievol@posteo.net>

    Fix previous commit, output of file-symlink-p is not reliable on
    
    remote files.
---
 helm-files.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index ce98366ee2..d7aeaf6a1b 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -3458,9 +3458,9 @@ filename \\='.' and \\='..' even on root directories in 
Windows
 systems.
 When FORCE-UPDATE is non nil recompute candidates even if DIRECTORY is
 in cache."
-  (let ((method (file-remote-p directory 'method))
-        (truename (helm-aand (file-symlink-p (directory-file-name directory))
-                             (file-name-as-directory it))))
+  (let* ((method (file-remote-p directory 'method))
+         (dfn (directory-file-name directory))
+         (truename (and (file-symlink-p dfn) (file-truename dfn))))
     (setq directory (file-name-as-directory
                      (expand-file-name directory)))
     (when truename



reply via email to

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