Re: assoc-delete-all

[Juri Linkov]

>     There is an assq-delete-all, but I am missing assoc-delete-all ... or, 
>
> We don't want to add assoc-delete-all merely for symmetry.
> It would have to be needed in practice.

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.

assoc-delete-all could filter out "." and ".." from the list of file
attributes returned by dired-files-attributes, which is an alist
with string keys

(("." "<full-name>" <attributes>)
 (".." "<full-name>" <attributes>)
 ("file" "<full-name>" <attributes>))

with this function

(assoc-delete-all "." (assoc-delete-all ".." file-alist1))

Even better would be to allow a test function like in assoc-default:

(assoc-delete-all nil file-alist1 (lambda (key) (string-match "^\.\.?$" key)))

-- 
Juri Linkov
http://www.jurta.org/emacs/