From c47258d764ea62fecaaced7527d92d974b67ed33 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 31 Mar 2000 19:50:20 +0000
Subject: [PATCH] Implement DIRED-MARK-FILES!.

---
 v7/src/edwin/dired.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 32d359954..9486ce9c7 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dired.scm,v 1.176 2000/03/31 19:40:13 cph Exp $
+;;; $Id: dired.scm,v 1.177 2000/03/31 19:50:20 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -866,6 +866,12 @@ Actions controlled by variables list-directory-brief-switches
 (define dired-flag-delete-char #\D)
 (define dired-marker-char #\*)
 
+(define (dired-mark-files! buffer predicate)
+  (for-each-file-line
+    (lambda (lstart)
+      (if (predicate (dired-filename-string lstart))
+	  (dired-mark-1 lstart dired-marker-char)))))
+
 (define (dired-marked-files #!optional mark marker-char)
   (let ((mark
 	 (cond ((or (default-object? mark) (not mark))
-- 
2.25.1