# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 989465346 0
# Node ID dbce347b20dabc623b5f9f2983bf38476aa04854
# Parent  08f6bad878f881cf484af2e36a0ad4b25c0e3072
(eshell-shuffle-files): Apply `directory-file-name' before calling
`file-name-directory'.

diff -r 08f6bad878f8 -r dbce347b20da lisp/eshell/em-unix.el
--- a/lisp/eshell/em-unix.el	Thu May 10 03:28:51 2001 +0000
+++ b/lisp/eshell/em-unix.el	Thu May 10 03:29:06 2001 +0000
@@ -360,10 +360,12 @@
 			   (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