Mercurial > emacs
changeset 43904:18bde66fd00f
(dired-fun-in-all-buffers): Moved to dired.el.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 14 Mar 2002 08:55:48 +0000 |
| parents | 9978ea345d85 |
| children | 054fd1547d56 |
| files | lisp/dired-aux.el |
| diffstat | 1 files changed, 0 insertions(+), 21 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dired-aux.el Thu Mar 14 08:55:20 2002 +0000 +++ b/lisp/dired-aux.el Thu Mar 14 08:55:48 2002 +0000 @@ -787,27 +787,6 @@ (subst-char-in-region opoint (1+ opoint) ?\040 char)))) (dired-move-to-filename)) -(defun dired-fun-in-all-buffers (directory file fun &rest args) - ;; In all buffers dired'ing DIRECTORY, run FUN with ARGS. - ;; If the buffer has a wildcard pattern, check that it matches FILE. - ;; (FILE does not include a directory component.) - ;; FILE may be nil, in which case ignore it. - ;; Return list of buffers where FUN succeeded (i.e., returned non-nil). - (let ((buf-list (dired-buffers-for-dir (expand-file-name directory) - file)) - (obuf (current-buffer)) - buf success-list) - (while buf-list - (setq buf (car buf-list) - buf-list (cdr buf-list)) - (unwind-protect - (progn - (set-buffer buf) - (if (apply fun args) - (setq success-list (cons (buffer-name buf) success-list)))) - (set-buffer obuf))) - success-list)) - ;;;###autoload (defun dired-add-file (filename &optional marker-char) (dired-fun-in-all-buffers