[Emacs-diffs] Changes to emacs/lisp/dired-aux.el

[Richard M. Stallman]

Index: emacs/lisp/dired-aux.el
diff -c emacs/lisp/dired-aux.el:1.98 emacs/lisp/dired-aux.el:1.99
*** emacs/lisp/dired-aux.el:1.98        Sun Jan 13 11:55:44 2002
--- emacs/lisp/dired-aux.el     Thu Mar 14 03:55:48 2002
***************
*** 787,813 ****
          (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
--- 787,792 ----