From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 31 Mar 2000 19:51:44 +0000 (+0000)
Subject: Implement DIRED-MARK-FILES!.
X-Git-Tag: 20090517-FFI~4119
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2f3754202ec1231f0dfcc2ab0358e6069313bbe2;p=mit-scheme.git

Implement DIRED-MARK-FILES!.
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 9486ce9c7..cc89ba9a1 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dired.scm,v 1.177 2000/03/31 19:50:20 cph Exp $
+;;; $Id: dired.scm,v 1.178 2000/03/31 19:51:44 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -867,10 +867,10 @@ Actions controlled by variables list-directory-brief-switches
 (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)))))
+  (for-each-file-line buffer
+		      (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