[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: assoc-delete-all
From: |
Richard M. Stallman |
Subject: |
Re: assoc-delete-all |
Date: |
Tue, 05 Jul 2005 00:35:55 -0400 |
Well, assoc-delete-all will help to fix the bug in
dired-compare-directories.
Sometimes the number of marked files it reports is wrong. That's
because it compares the file attributes of directories "." and "..",
but dired mark-functions don't mark them.
Is the following patch not right?
*** dired-aux.el 03 Jul 2005 12:12:32 -0400 1.133
--- dired-aux.el 04 Jul 2005 15:01:37 -0400
***************
*** 136,141 ****
--- 136,143 ----
(dired-file-set-difference
file-alist2 file-alist1
predicate))))
+ (setq file-list1 (delete "." (delete ".." file-list1)))
+ (setq file-list2 (delete "." (delete ".." file-list2)))
(dired-fun-in-all-buffers
dir1 nil
(lambda ()