From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 1995 06:37:57 +0000 (+0000)
Subject: On some file systems, file names may have spaces embedded in them.  So
X-Git-Tag: 20090517-FFI~6260
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=74c8519f7789aeb81c99c3c7f61df118a5302649;p=mit-scheme.git

On some file systems, file names may have spaces embedded in them.  So
use the end of line as the delimiter for the file name.  This might
still lose, but not as often.
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 22ae36b14..08b179500 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dired.scm,v 1.154 1995/02/14 00:30:11 cph Exp $
+;;;	$Id: dired.scm,v 1.155 1995/06/15 06:37:57 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology
 ;;;
@@ -745,7 +745,7 @@ Actions controlled by variables list-directory-brief-switches
 (define (dired-filename-string lstart)
   (let ((start (dired-filename-start lstart)))
     (and start
-	 (extract-string start (skip-chars-forward "^ \n" start)))))
+	 (extract-string start (line-end start 0)))))
 
 (define (set-dired-point! mark)
   (set-current-point!