From b2c102f30bac02db430e0d7e44eb9084adf40c98 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Thu, 10 May 2001 03:29:06 +0000 Subject: [PATCH] (eshell-shuffle-files): Apply `directory-file-name' before calling `file-name-directory'. --- lisp/eshell/em-unix.el | 6 ++++-- 1 file 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 -- 2.39.2