Index: emacs/lisp/dired-aux.el
diff -c emacs/lisp/dired-aux.el:1.134 emacs/lisp/dired-aux.el:1.135
*** emacs/lisp/dired-aux.el:1.134 Mon Jul 4 23:08:52 2005
--- emacs/lisp/dired-aux.el Mon Jul 11 04:24:46 2005
***************
*** 126,141 ****
(let* ((dir1 (dired-current-directory))
(file-alist1 (dired-files-attributes dir1))
(file-alist2 (dired-files-attributes dir2))
! (file-list1 (mapcar
'cadr
(dired-file-set-difference
file-alist1 file-alist2
! predicate)))
! (file-list2 (mapcar
'cadr
(dired-file-set-difference
file-alist2 file-alist1
! predicate))))
(dired-fun-in-all-buffers
dir1 nil
(lambda ()
--- 126,146 ----
(let* ((dir1 (dired-current-directory))
(file-alist1 (dired-files-attributes dir1))
(file-alist2 (dired-files-attributes dir2))
! 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
'cadr
(dired-file-set-difference
file-alist2 file-alist1
! predicate)))
(dired-fun-in-all-buffers
dir1 nil
(lambda ()
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
