Mercurial > emacs
comparison lisp/dired-aux.el @ 64224:ce7ebac36002
(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))) |