From 9375be0117a8a1deb083fcd3706d6b9686fef916 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 19 Jul 2004 12:34:02 +0000 Subject: (dired-file-set-difference): Don't use `caddr'. --- lisp/dired-aux.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/dired-aux.el') 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))) -- cgit v1.2.1