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 22ae36b1490a5f48f30c6f1a824e3fbda4a7d5a8..08b179500882cc591f0febde7ea72488d1789189 100644 (file)
--- 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!