Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 37654:08f6bad878f8 | 37655:dbce347b20da |
|---|---|
| 358 (let (eshell-warn-dot-directories) | 358 (let (eshell-warn-dot-directories) |
| 359 (if (and (not deep) | 359 (if (and (not deep) |
| 360 (eq func 'rename-file) | 360 (eq func 'rename-file) |
| 361 (= (nth 11 (eshell-file-attributes | 361 (= (nth 11 (eshell-file-attributes |
| 362 (file-name-directory | 362 (file-name-directory |
| 363 (expand-file-name source)))) | 363 (directory-file-name |
| 364 (expand-file-name source))))) | |
| 364 (nth 11 (eshell-file-attributes | 365 (nth 11 (eshell-file-attributes |
| 365 (file-name-directory | 366 (file-name-directory |
| 366 (expand-file-name target)))))) | 367 (directory-file-name |
| 368 (expand-file-name target))))))) | |
| 367 (apply 'eshell-funcalln func source target args) | 369 (apply 'eshell-funcalln func source target args) |
| 368 (unless (file-directory-p target) | 370 (unless (file-directory-p target) |
| 369 (if verbose | 371 (if verbose |
| 370 (eshell-printn | 372 (eshell-printn |
| 371 (format "%s: making directory %s" | 373 (format "%s: making directory %s" |