(eshell-shuffle-files): Apply `directory-file-name' before calling

`file-name-directory'.

1 files changed, 4 insertions, 2 deletions

diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el
index 1dfec1e7021..9b63accbbf0 100644
--- a/lisp/eshell/em-unix.el
+++ b/lisp/eshell/em-unix.el
@@ -360,10 +360,12 @@ Remove the DIRECTORY(ies), if they are empty.")
                            (eq func 'rename-file)
                            (= (nth 11 (eshell-file-attributes
                                        (file-name-directory
-                                        (expand-file-name source))))
+                                        (directory-file-name
+                                         (expand-file-name source)))))
                               (nth 11 (eshell-file-attributes
                                        (file-name-directory
-                                        (expand-file-name target))))))
+                                        (directory-file-name
+                                         (expand-file-name target)))))))
                       (apply 'eshell-funcalln func source target args)
                   (unless (file-directory-p target)
                     (if verbose