[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/dired-aux.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/dired-aux.el |
Date: |
Thu, 14 Mar 2002 03:55:48 -0500 |
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 ----
- [Emacs-diffs] Changes to emacs/lisp/dired-aux.el,
Richard M. Stallman <=