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

`file-name-directory'.
emk · May 10, 2001 · 8051993 · 8051993
1 parent 3cf47b4
commit 8051993
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/em-unix.el b/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