From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 23 Mar 1994 22:47:05 +0000 (+0000)
Subject: Change predicate in DIRED-MARKED-FILES in order to speed up search for
X-Git-Tag: 20090517-FFI~7217
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f0c0c24574ce8577f5510a4ad81eec5fed47977f;p=mit-scheme.git

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 59330bca8..f5e88399e 100644
--- 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))))))