From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Mon, 12 Aug 1991 03:14:36 +0000 (+0000)
Subject: Dired was unable to delete files appearing on the first line of its buffer.
X-Git-Tag: 20090517-FFI~10384
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2b92adc0237b025cf99f32a02b1daee2d47baf17;p=mit-scheme.git

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 2d45bb30f..52c73ef0f 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.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?