From c9b8452632a67325215048371a3496aa31a2642f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Apr 1989 22:06:59 +0000
Subject: [PATCH] Fix bug which occurred when moving to last line of Dired
 buffer.

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

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 5c7da6d70..ad775f2f2 100644
--- 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
-- 
2.25.1