From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 25 Sep 1995 20:29:00 +0000 (+0000)
Subject: Handle symbolic link listings specially -- they require extra parsing
X-Git-Tag: 20090517-FFI~5937
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5f6fe91f2da23689b68e3327deab5c6082a619f9;p=mit-scheme.git

Handle symbolic link listings specially -- they require extra parsing
to extract the file name.
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 08b179500..c2deb6de2 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dired.scm,v 1.155 1995/06/15 06:37:57 cph Exp $
+;;;	$Id: dired.scm,v 1.156 1995/09/25 20:29:00 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-95 Massachusetts Institute of Technology
 ;;;
@@ -745,7 +745,11 @@ Actions controlled by variables list-directory-brief-switches
 (define (dired-filename-string lstart)
   (let ((start (dired-filename-start lstart)))
     (and start
-	 (extract-string start (line-end start 0)))))
+	 (extract-string start
+			 (let ((end (line-end start 0)))
+			   (if (search-forward " -> " start end)
+			       (re-match-start 0)
+			       end))))))
 
 (define (set-dired-point! mark)
   (set-current-point!