diff options
| author | John Paul Wallington <jpw@pobox.com> | 2004-07-19 12:34:02 +0000 |
|---|---|---|
| committer | John Paul Wallington <jpw@pobox.com> | 2004-07-19 12:34:02 +0000 |
| commit | 9375be0117a8a1deb083fcd3706d6b9686fef916 (patch) | |
| tree | 921f087ef7e3fd4dd7cb561fe41360beb137ecb4 /lisp/dired-aux.el | |
| parent | dda741ec19783b40b4b190a7789289f4a92caba0 (diff) | |
| download | emacs-9375be0117a8a1deb083fcd3706d6b9686fef916.tar.gz | |
(dired-file-set-difference): Don't use `caddr'.
Diffstat (limited to 'lisp/dired-aux.el')
| -rw-r--r-- | lisp/dired-aux.el | 4 |
1 files changed, 2 insertions, 2 deletions
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))) |