From d2d21b819c7f803ec7185997b4d9d478cbc885e9 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 27 Oct 1993 02:14:12 +0000
Subject: [PATCH] Generalize PROMPT-FOR-STRING to allow an initialization
 procedure to be used in place of the mode.

---
 v7/src/edwin/prompt.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 158508c71..54e59e282 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: prompt.scm,v 1.160 1993/10/16 07:34:43 cph Exp $
+;;;	$Id: prompt.scm,v 1.161 1993/10/27 02:14:12 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -162,8 +162,10 @@
 (define ((typein-editor-thunk mode))
   (let ((buffer (current-buffer)))
     (ring-clear! (buffer-mark-ring buffer))
-    (push-current-mark! (buffer-start buffer)))
-  (set-current-major-mode! mode)
+    (push-current-mark! (buffer-start buffer))
+    (if (major-mode? mode)
+	(set-buffer-major-mode! buffer mode)
+	(mode buffer)))
   (command-reader))
 
 (define (abort-typein-edit event)
-- 
2.25.1