branch: elpa/helm
commit 2e7d76d01828df577f89a088d97812f324cd5e28
Author: Thierry Volpiatto <[email protected]>
Commit: Thierry Volpiatto <[email protected]>
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
