Mercurial > emacs
comparison lisp/eshell/em-unix.el @ 39235:f3a553d88ab7
(eshell-shuffle-files): Compare inodes with
`equal' instead of `=', since they can be cons cells. From Nils
Goesche <cartan@cartan.de>.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Mon, 10 Sep 2001 20:39:03 +0000 |
| parents | 67b464da13ec |
| children | 1e91a5f60ae6 |
comparison
equal
deleted
inserted
replaced
| 39234:c6db9eb192d8 | 39235:f3a553d88ab7 |
|---|---|
| 340 ((and attr-target | 340 ((and attr-target |
| 341 (or (not (eshell-under-windows-p)) | 341 (or (not (eshell-under-windows-p)) |
| 342 (eq system-type 'ms-dos)) | 342 (eq system-type 'ms-dos)) |
| 343 (setq attr (eshell-file-attributes (car files))) | 343 (setq attr (eshell-file-attributes (car files))) |
| 344 (nth 10 attr-target) (nth 10 attr) | 344 (nth 10 attr-target) (nth 10 attr) |
| 345 (= (nth 10 attr-target) (nth 10 attr)) | 345 (equal (nth 10 attr-target) (nth 10 attr)) |
| 346 (nth 11 attr-target) (nth 11 attr) | 346 (nth 11 attr-target) (nth 11 attr) |
| 347 (= (nth 11 attr-target) (nth 11 attr))) | 347 (= (nth 11 attr-target) (nth 11 attr))) |
| 348 (eshell-error (format "%s: `%s' and `%s' are the same file\n" | 348 (eshell-error (format "%s: `%s' and `%s' are the same file\n" |
| 349 command (car files) target))) | 349 command (car files) target))) |
| 350 (t | 350 (t |