From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 5 Dec 2000 21:52:49 +0000 (+0000)
Subject: Fix bug: alternate file doesn't have to exist.  Calling
X-Git-Tag: 20090517-FFI~3162
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9320105e5d91ac2d09c6a935940851d8da072f6c;p=mit-scheme.git

Fix bug: alternate file doesn't have to exist.  Calling
PROMPT-FOR-ALTERNATE-FILE also prevented using this command to visit a
directory.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 5f48cd57e..ff49a3a4f 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: filcom.scm,v 1.212 2000/12/04 03:09:53 cph Exp $
+;;; $Id: filcom.scm,v 1.213 2000/12/05 21:52:49 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -57,7 +57,7 @@ If the current buffer now contains an empty file that you just visited
 \(presumably by mistake), use this command to visit the file you really want."
   (lambda ()
     (list
-     (prompt-for-existing-file
+     (prompt-for-file
       "Find alternate file"
       (let ((pathname (buffer-pathname (selected-buffer))))
 	(and pathname