From 5f6fe91f2da23689b68e3327deab5c6082a619f9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 25 Sep 1995 20:29:00 +0000
Subject: [PATCH] Handle symbolic link listings specially -- they require extra
 parsing to extract the file name.

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

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