From 166473b92370a22807b110e07ac78e74b977933d Mon Sep 17 00:00:00 2001
From: Jason Wilson <edu/mit/csail/zurich/jawilson>
Date: Thu, 19 Aug 1993 05:52:22 +0000
Subject: [PATCH] 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.

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

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