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