# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1017412994 0
# Node ID acb1f97fda8f35073b6ddf83fdbb680c6042a68e
# Parent  780f3cdf5aa8b1f6b088e54c80e786c8df2415ce
(dired-get-marked-files): New arg FILTER allows selection of some files.

diff -r 780f3cdf5aa8 -r acb1f97fda8f lisp/dired.el
--- a/lisp/dired.el	Fri Mar 29 14:04:05 2002 +0000
+++ b/lisp/dired.el	Fri Mar 29 14:43:14 2002 +0000
@@ -397,18 +397,28 @@
      ;; save-excursion loses, again
      (dired-move-to-filename)))
 
-(defun dired-get-marked-files (&optional localp arg)
+(defun dired-get-marked-files (&optional localp arg filter)
   "Return the marked files' names as list of strings.
 The list is in the same order as the buffer, that is, the car is the
   first marked file.
-Values returned are normally absolute pathnames.
+Values returned are normally absolute file names.
 Optional arg LOCALP as in `dired-get-filename'.
-Optional second argument ARG forces to use other files.  If ARG is an
-  integer, use the next ARG files.  If ARG is otherwise non-nil, use
-  current file.  Usually ARG comes from the current prefix arg."
-  (save-excursion
-    (nreverse (dired-map-over-marks (dired-get-filename localp) arg))))
-
+Optional second argument ARG specifies files near point
+ instead of marked files.  If ARG is an integer, use the next ARG files.
+  If ARG is otherwise non-nil, use file.  Usually ARG comes from
+  the command's prefix arg.
+Optional third argument FILTER, if non-nil, is a function to select
+  some of the files--those for which (funcall FILTER FILENAME) is non-nil."
+  (let ((all-of-them
+	 (save-excursion
+	   (dired-map-over-marks (dired-get-filename localp) arg)))
+	result)
+    (if (not filter)
+	(nreverse all-of-them)
+      (dolist (file all-of-them)
+	(if (funcall filter file)
+	    (push file result)))
+      result)))
 
 ;; Function dired-ls is redefinable for VMS, ange-ftp, Prospero or
 ;; other special applications.