[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/dired-aux.el
|
From: |
Richard M . Stallman |
|
Subject: |
[Emacs-diffs] Changes to emacs/lisp/dired-aux.el |
|
Date: |
Mon, 11 Jul 2005 00:24:46 -0400 |
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 ()