branch: master
commit 5eaa2d2e7197f530ad7b962e5255718182bfcc40
Author: Stephen Leake <stephen_le...@stephe-leake.org>
Commit: Stephen Leake <stephen_le...@stephe-leake.org>

    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)))

Reply via email to