From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 25 Apr 1989 22:06:59 +0000 (+0000)
Subject: Fix bug which occurred when moving to last line of Dired buffer.
X-Git-Tag: 20090517-FFI~12111
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c9b8452632a67325215048371a3496aa31a2642f;p=mit-scheme.git

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