From 7e3c0b2b4bd85681178a2c3642644c4a33d5a921 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 4 Dec 2000 03:09:53 +0000
Subject: [PATCH] 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.

---
 v7/src/edwin/filcom.scm | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

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
-- 
2.25.1