Dired was unable to delete files appearing on the first line of its buffer.

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 2d45bb30fdd302a82d1065f88503e1b67f3a4bd8..52c73ef0fc2e38e4a6526a77c0d72034603dc598 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.113 1991/08/07 19:09:03 arthur Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/dired.scm,v 1.114 1991/08/12 03:14:36 arthur Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -504,7 +504,7 @@ CANNOT contain the 'F' option."
                      rest)
                rest))
          '())))
-  (loop (line-start (buffer-start (current-buffer)) 1)))
+  (loop (line-start (buffer-start (current-buffer)) 0)))
 
 (define (dired-kill-file! filename)
   (let ((deleted?