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 0d90cfd31c2865fcd3736da6ea13132fff47d6f6..de03cb1201a559fa2be1050f2b84f5918d50e0fb 100644 (file)
--- 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