From: John Paul Wallington Date: Mon, 19 Jul 2004 12:34:02 +0000 (+0000) Subject: (dired-file-set-difference): Don't use `caddr'. X-Git-Tag: ttn-vms-21-2-B4~5438 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9375be0117a8a1deb083fcd3706d6b9686fef916;p=emacs.git (dired-file-set-difference): Don't use `caddr'. --- 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 + + * dired-aux.el (dired-file-set-difference): Don't use `caddr'. + 2004-07-18 Luc Teirlinck * 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)))