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


_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel

Reply via email to