[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