From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Thu, 19 Aug 1993 05:52:22 +0000 (+0000)
Subject: Made the command reader loop aware of keyboard-macros so that a call
X-Git-Tag: 20090517-FFI~8050
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=166473b92370a22807b110e07ac78e74b977933d;p=mit-scheme.git

Made the command reader loop aware of keyboard-macros so that a call
to without-editor-interupts could be avoided thus speeding up the
code.
---

diff --git a/v7/src/edwin/comred.scm b/v7/src/edwin/comred.scm
index 0d90cfd31..de03cb120 100644
--- a/v7/src/edwin/comred.scm
+++ b/v7/src/edwin/comred.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: comred.scm,v 1.102 1993/08/10 06:35:38 cph Exp $
+;;;	$Id: comred.scm,v 1.103 1993/08/19 05:52:22 jawilson Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -102,7 +102,11 @@
 		   (reset-command-state!)
 		   (if (queue-empty? command-reader-override-queue)
 		       (let ((input
-			      (with-editor-interrupts-disabled keyboard-read)))
+			      (if *executing-keyboard-macro?*
+				  (begin
+				    (set! keyboard-keys-read (+ keyboard-keys-read 1))
+				    (keyboard-macro-read-key))
+				  (with-editor-interrupts-disabled keyboard-read))))
 			 (if (input-event? input)
 			     (apply-input-event input)
 			     (begin