Implement DIRED-MARK-FILES!.

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index cc89ba9a12f348a91f245ba1445ee55c39ac1948..b6146cf664694ae207caa5701d78808d4c5c7659 100644 (file)
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dired.scm,v 1.178 2000/03/31 19:51:44 cph Exp $
+;;; $Id: dired.scm,v 1.179 2000/03/31 20:09:50 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -867,10 +867,12 @@ Actions controlled by variables list-directory-brief-switches
 (define dired-marker-char #\*)
 \f
 (define (dired-mark-files! buffer predicate)
-  (for-each-file-line buffer
-                     (lambda (lstart)
-                       (if (predicate (dired-filename-string lstart))
-                           (dired-mark-1 lstart dired-marker-char)))))
+  (let ((directory (buffer-default-directory buffer)))
+    (for-each-file-line buffer
+      (lambda (lstart)
+       (if (predicate
+            (merge-pathnames (dired-filename-string lstart) directory))
+           (dired-mark-1 lstart dired-marker-char))))))
 
 (define (dired-marked-files #!optional mark marker-char)
   (let ((mark

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index 21eeffc8fc050278f4033fc3a439b3b62fec85a2..5258e55855947e87b3eb4b2391fa04e815cf083a 100644 (file)
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.249 2000/03/26 01:27:13 cph Exp $
+$Id: edwin.pkg,v 1.250 2000/03/31 20:09:52 cph Exp $
 
 Copyright (c) 1989-2000 Massachusetts Institute of Technology
 
@@ -657,6 +657,7 @@ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
   (parent (edwin))
   (export (edwin)
          dired-filename-start
+         dired-mark-files!
          dired-marked-files
          dired-next-files
          dired-pathname