# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1090240284 0
# Node ID 6e35421b930dbc64f2a526c2a6ef36bebe2d310d
# Parent  ea3577979c1c94d22d65b206a738950e5889e14a
(dired-file-set-difference): Don't use `caddr'.

diff -r ea3577979c1c -r 6e35421b930d lisp/dired-aux.el
--- a/lisp/dired-aux.el	Mon Jul 19 07:58:24 2004 +0000
+++ b/lisp/dired-aux.el	Mon Jul 19 12:31:24 2004 +0000
@@ -163,8 +163,8 @@
 	(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)))