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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8bd6dda2edf8b8899a41bf414b98f36a3abd4091..1c86eb505f40f381c296b4b1ff45f7797c52c44c 100644 (file)
--- 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 9b401b7e41c3f5ba3ff4c0d4b6beec4b9a889371..6c1a9ad36f03270b105c2e530e87d1866154a376 100644 (file)
--- 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)))