Mercurial > emacs

comparison lisp/dired-aux.el @ 64224:ce7ebac36002

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-compare-directories): Remove "." and ".." from the alists.
author Richard M. Stallman <rms@gnu.org>
date Mon, 11 Jul 2005 04:24:46 +0000
parents 6fb026ad601f
children 41bb365f41c4 fbb2bea03df9
comparison
equal deleted inserted replaced
64223:12e95a3f6745 64224:ce7ebac36002
124 (dired-dwim-target-directory)) 124 (dired-dwim-target-directory))
125 (read-from-minibuffer "Mark if (lisp expr or RET): " nil nil t nil "nil"))) 125 (read-from-minibuffer "Mark if (lisp expr or RET): " nil nil t nil "nil")))
126 (let* ((dir1 (dired-current-directory)) 126 (let* ((dir1 (dired-current-directory))
127 (file-alist1 (dired-files-attributes dir1)) 127 (file-alist1 (dired-files-attributes dir1))
128 (file-alist2 (dired-files-attributes dir2)) 128 (file-alist2 (dired-files-attributes dir2))
129 (file-list1 (mapcar 129 file-list1 file-list2)
130 (setq file-alist1 (delq (assoc "." file-alist1) file-alist1))
131 (setq file-alist1 (delq (assoc ".." file-alist1) file-alist1))
132 (setq file-alist2 (delq (assoc "." file-alist2) file-alist2))
133 (setq file-alist2 (delq (assoc ".." file-alist2) file-alist2))
134 (setq file-list1 (mapcar
130 'cadr 135 'cadr
131 (dired-file-set-difference 136 (dired-file-set-difference
132 file-alist1 file-alist2 137 file-alist1 file-alist2
133 predicate))) 138 predicate))
134 (file-list2 (mapcar 139 file-list2 (mapcar
135 'cadr 140 'cadr
136 (dired-file-set-difference 141 (dired-file-set-difference
137 file-alist2 file-alist1 142 file-alist2 file-alist1
138 predicate)))) 143 predicate)))
139 (dired-fun-in-all-buffers 144 (dired-fun-in-all-buffers
140 dir1 nil 145 dir1 nil
141 (lambda () 146 (lambda ()
142 (dired-mark-if 147 (dired-mark-if
143 (member (dired-get-filename nil t) file-list1) nil))) 148 (member (dired-get-filename nil t) file-list1) nil)))