mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

(dired-compare-directories): Remove "." and ".." from the alists.

Browse Source
This commit is contained in:
Richard M. Stallman 2005-07-11 04:25:01 +00:00
parent 3cc9e6d817
commit 5176af43d1
2 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2005-07-11 Richard M. Stallman <rms@gnu.org>
* dired-aux.el (dired-compare-directories): Remove "." and ".."
from the alists.
* emacs-lisp/edebug.el (edebug-slow-after, edebug-slow-before):
Do nothing if edebug-active.

13
lisp/dired-aux.el
View File

@ -126,16 +126,21 @@ Examples of PREDICATE:
(let* ((dir1 (dired-current-directory))
(file-alist1 (dired-files-attributes dir1))
(file-alist2 (dired-files-attributes dir2))
(file-list1 (mapcar
file-list1 file-list2)
(setq file-alist1 (delq (assoc "." file-alist1) file-alist1))
(setq file-alist1 (delq (assoc ".." file-alist1) file-alist1))
(setq file-alist2 (delq (assoc "." file-alist2) file-alist2))
(setq file-alist2 (delq (assoc ".." file-alist2) file-alist2))
(setq file-list1 (mapcar
'cadr
(dired-file-set-difference
file-alist1 file-alist2
predicate)))
(file-list2 (mapcar
predicate))
file-list2 (mapcar
'cadr
(dired-file-set-difference
file-alist2 file-alist1
predicate))))
predicate)))
(dired-fun-in-all-buffers
dir1 nil
(lambda ()