(eshell-shuffle-files): Compare inodes with

`equal' instead of `=', since they can be cons cells.  From Nils
Goesche <cartan@cartan.de>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9862cfb0eae72ad2d04374175558e4b2e4b2329e..3bfca9f688eb0251cbd6637ddfe5b6af656d3bf6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-10  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * eshell/em-unix.el (eshell-shuffle-files): Compare inodes with
+       `equal' instead of `=', since they can be cons cells.  From Nils
+       Goesche <cartan@cartan.de>.
+
 2001-09-10  Andre Spiegel  <spiegel@gnu.org>
 
        * vc.el (vc-annotate): Rewrote doc string.

diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el
index 6db127a45f4005db9a96a7a20a3981e30aa40a02..985191080a1e6c0ae54a857a9b738a3d49c50449 100644 (file)
--- a/lisp/eshell/em-unix.el
+++ b/lisp/eshell/em-unix.el
@@ -342,7 +342,7 @@ Remove the DIRECTORY(ies), if they are empty.")
                 (eq system-type 'ms-dos))
             (setq attr (eshell-file-attributes (car files)))
             (nth 10 attr-target) (nth 10 attr)
-            (= (nth 10 attr-target) (nth 10 attr))
+            (equal (nth 10 attr-target) (nth 10 attr))
             (nth 11 attr-target) (nth 11 attr)
             (= (nth 11 attr-target) (nth 11 attr)))
        (eshell-error (format "%s: `%s' and `%s' are the same file\n"