mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
`file-name-directory'.
This commit is contained in:
John Wiegley 2001-05-10 03:29:06 +00:00
parent 734f7362aa
commit b2c102f30b
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/eshell/em-unix.el
View file

@ -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