From 5506f5def008a849451fa069846ad47f87758cf2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 17 May 1991 20:04:12 +0000
Subject: [PATCH] Due to change in push-cmdl, it's now necessary to bind
 edwin's internal error handler after creating the new cmdl.

---
 v7/src/edwin/editor.scm | 30 +++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/v7/src/edwin/editor.scm b/v7/src/edwin/editor.scm
index b9f751495..2469c7230 100644
--- a/v7/src/edwin/editor.scm
+++ b/v7/src/edwin/editor.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.203 1991/05/17 18:36:59 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/editor.scm,v 1.204 1991/05/17 20:04:12 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -54,20 +54,20 @@
 		 (current-editor edwin-editor)
 		 (recursive-edit-continuation false)
 		 (recursive-edit-level 0))
-       (bind-condition-handler (list condition-type:error)
-	   internal-error-handler
-	 (lambda ()
-	   (editor-grab-display edwin-editor
-	     (lambda (with-editor-ungrabbed)
-	       (let ((message (cmdl-message/null)))
-		 (push-cmdl
-		  (lambda (cmdl)
-		    cmdl		;ignore
-		    (top-level-command-reader edwin-initialization)
-		    message)
-		  false
-		  message
-		  (editor-spawn-child-cmdl with-editor-ungrabbed))))))))))
+       (editor-grab-display edwin-editor
+	 (lambda (with-editor-ungrabbed)
+	   (let ((message (cmdl-message/null)))
+	     (push-cmdl
+	      (lambda (cmdl)
+		cmdl		;ignore
+		(bind-condition-handler (list condition-type:error)
+		    internal-error-handler
+		  (lambda ()
+		    (top-level-command-reader edwin-initialization)))
+		message)
+	      false
+	      message
+	      (editor-spawn-child-cmdl with-editor-ungrabbed))))))))
   (if edwin-finalization (edwin-finalization))
   unspecific)
 
-- 
2.25.1