(dired-file-set-difference): Don't use `caddr'.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8bd6dda2edf..1c86eb505f4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-07-19  John Paul Wallington  <jpw@gnu.org>
+
+        * dired-aux.el (dired-file-set-difference): Don't use `caddr'.
+
 2004-07-18  Luc Teirlinck  <teirllm@auburn.edu>
 
         * dired-aux.el (dired-do-kill-lines): Expand docstring.
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 9b401b7e41c..6c1a9ad36f0 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -163,8 +163,8 @@ condition.  Two file items are considered to match if they are equal
         (unless (let ((list list2))
                   (while (and list
                               (not (let* ((file2 (car list))
-                                          (fa1 (caddr file1))
-                                          (fa2 (caddr file2))
+                                          (fa1 (car (cddr file1)))
+                                          (fa2 (car (cddr file2)))
                                           (size1 (nth 7 fa1))
                                           (size2 (nth 7 fa2))
                                           (mtime1 (float-time (nth 5 fa1)))