From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 4 Dec 2000 03:09:53 +0000 (+0000)
Subject: Change M-x find-alternate-file to prompt as it does in Emacs: with the
X-Git-Tag: 20090517-FFI~3167
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7e3c0b2b4bd85681178a2c3642644c4a33d5a921;p=mit-scheme.git

Change M-x find-alternate-file to prompt as it does in Emacs: with the
full pathname of the current buffer's file, if any.
---

diff --git a/v7/src/edwin/filcom.scm b/v7/src/edwin/filcom.scm
index 639566424..5f48cd57e 100644
--- a/v7/src/edwin/filcom.scm
+++ b/v7/src/edwin/filcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: filcom.scm,v 1.211 2000/04/10 04:03:37 cph Exp $
+;;; $Id: filcom.scm,v 1.212 2000/12/04 03:09:53 cph Exp $
 ;;;
 ;;; Copyright (c) 1986, 1989-2000 Massachusetts Institute of Technology
 ;;;
@@ -55,7 +55,13 @@ May create a window, or reuse one."
   "Find file FILENAME, select its buffer, kill previous buffer.
 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."
-  "FFind alternate file"
+  (lambda ()
+    (list
+     (prompt-for-existing-file
+      "Find alternate file"
+      (let ((pathname (buffer-pathname (selected-buffer))))
+	(and pathname
+	     (list pathname))))))
   (lambda (filename)
     (let ((buffer (selected-buffer)))
       (let ((do-it