Change predicate in DIRED-MARKED-FILES in order to speed up search for

marked files.  New predicate does much less work for lines that are
not marked.

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 59330bca8bf215fcc0cfffed545be62457e75ab1..f5e88399e050926f58f0505349f37a9426e6833d 100644 (file)
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dired.scm,v 1.144 1994/03/16 23:26:45 cph Exp $
+;;;    $Id: dired.scm,v 1.145 1994/03/23 22:47:05 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-94 Massachusetts Institute of Technology
 ;;;
@@ -791,8 +791,8 @@ Actions controlled by variables list-directory-brief-switches
                 (if next
                     (loop next)
                     '())))))
-       (if (and (dired-filename-start start)
-                (char=? marker-char (mark-right-char start)))
+       (if (and (eqv? marker-char (mark-right-char start))
+                (dired-filename-start start))
            (cons (cons (dired-pathname start) start)
                  (continue))
            (continue))))))