From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 14 Mar 2002 08:55:48 +0000 (+0000)
Subject: (dired-fun-in-all-buffers): Moved to dired.el.
X-Git-Tag: ttn-vms-21-2-B4~16176
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=876a2544ce837ba0721fe5471e055cab45a574f8;p=emacs.git

(dired-fun-in-all-buffers): Moved to dired.el.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 8cd7373070e..8e4a8e0ded9 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -787,27 +787,6 @@ a prefix arg lets you edit the `ls' switches used for the new listing."
 	  (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