Mercurial > emacs
diff lisp/eshell/em-unix.el @ 37655:dbce347b20da
(eshell-shuffle-files): Apply `directory-file-name' before calling
`file-name-directory'.
author | John Wiegley <johnw@newartisans.com> |
---|---|
date | Thu, 10 May 2001 03:29:06 +0000 |
parents | 565e55bc8630 |
children | 6d7c89c79996 |
line wrap: on
line diff
--- 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