From 74c8519f7789aeb81c99c3c7f61df118a5302649 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 1995 06:37:57 +0000
Subject: [PATCH] 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.

---
 v7/src/edwin/dired.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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!
-- 
2.25.1