branch: master
commit 5eaa2d2e7197f530ad7b962e5255718182bfcc40
Author: Stephen Leake <[email protected]>
Commit: Stephen Leake <[email protected]>
Improve path-iterator
* packages/path-iterator/path-iterator.el (path-iter--to-truename):
Enforce directory-file-name.
---
packages/path-iterator/path-iterator.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/packages/path-iterator/path-iterator.el
b/packages/path-iterator/path-iterator.el
index 1c57ce3..6bd3504 100644
--- a/packages/path-iterator/path-iterator.el
+++ b/packages/path-iterator/path-iterator.el
@@ -131,7 +131,7 @@ If an element of PATH is nil, `default-directory' is used."
(expand-file-name name)
default-directory)))
(when (file-directory-p absname)
- (push (file-truename absname) result))
+ (push (directory-file-name (file-truename absname)) result))
))
path)
(nreverse result)))
