Fix bug which occurred when moving to last line of Dired buffer.

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 5c7da6d709638c3176004464cad33608c3d83e6e..ad775f2f2cd3999f55cecdb074155a81ef042ccc 100644 (file)
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dired.scm,v 1.100 1989/04/25 02:02:59 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dired.scm,v 1.101 1989/04/25 22:06:59 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -235,7 +235,8 @@ C-] -- abort Dired; this is like \\[kill-buffer] on this buffer."
       (editor-error "No file on this line")))
 
 (define (dired-filename-line? lstart)
-  (mark>= lstart (buffer-get (current-buffer) 'DIRED-HEADER-END)))
+  (and (mark>= lstart (buffer-get (current-buffer) 'DIRED-HEADER-END))
+       (not (group-end? lstart))))
 
 (define (dired-pathname lstart)
   (merge-pathnames