From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 9 Sep 1993 04:52:50 +0000 (+0000)
Subject: Fix bug: renaming last file in dired buffer to another directory
X-Git-Tag: 20090517-FFI~7882
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=77205beadd70117ba5dd499dc651a2a0307170d2;p=mit-scheme.git

Fix bug: renaming last file in dired buffer to another directory
signalled an error.
---

diff --git a/v7/src/edwin/dired.scm b/v7/src/edwin/dired.scm
index 67d5fa20c..38d931f1b 100644
--- a/v7/src/edwin/dired.scm
+++ b/v7/src/edwin/dired.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: dired.scm,v 1.136 1993/02/21 05:54:25 cph Exp $
+;;;	$Id: dired.scm,v 1.137 1993/09/09 04:52:50 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -342,7 +342,7 @@ Type `h' after entering dired for more info."
 	(with-read-only-defeated lstart
 	  (lambda ()
 	    (add-dired-entry to)))
-	(set-current-point! (dired-filename-start lstart))))))
+	(set-dired-point! lstart)))))
 
 (define (dired-redisplay pathname)
   (let ((lstart (mark-right-inserting (line-start (current-point) 0))))
@@ -350,7 +350,7 @@ Type `h' after entering dired for more info."
       (lambda ()
 	(delete-string lstart (line-start lstart 1))
 	(add-dired-entry pathname)))
-    (set-current-point! (dired-filename-start lstart))))
+    (set-dired-point! lstart)))
 
 (define (dired-filename-start lstart)
   (let ((eol (line-end lstart 0)))