From: Eli Zaretskii <eliz@gnu.org>
Date: Mon, 10 Sep 2001 20:40:42 +0000 (+0000)
Subject: (eshell-shuffle-files): Compare inodes with
X-Git-Tag: emacs-pretest-21.0.106~156
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f9581b61c03d5a763dcd8cca22363a7dca81bc9;p=emacs.git

(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 9862cfb0eae..3bfca9f688e 100644
--- 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 6db127a45f4..985191080a1 100644
--- 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"