mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
John Paul Wallington 2004-07-19 12:34:02 +00:00
parent dda741ec19
commit 9375be0117
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

4
lisp/dired-aux.el
View file

@ -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)))