From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 18 Feb 1992 20:47:26 +0000 (+0000)
Subject: Don't record input events in the input history.  If an input event
X-Git-Tag: 20090517-FFI~9688
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c4f997994c6787e3f0b99bd19f9bbf4c566ebe4c;p=mit-scheme.git

Don't record input events in the input history.  If an input event
arrives when a keyboard macro is being defined, terminate the keyboard
macro definition before applying the event.
---

diff --git a/v7/src/edwin/input.scm b/v7/src/edwin/input.scm
index f5a994a3f..9edf99163 100644
--- a/v7/src/edwin/input.scm
+++ b/v7/src/edwin/input.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/input.scm,v 1.92 1992/02/17 22:09:14 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/input.scm,v 1.93 1992/02/18 20:47:26 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -185,9 +185,13 @@ B 3BAB8C
   (if *executing-keyboard-macro?*
       (keyboard-macro-read-key)
       (let ((key (keyboard-read-1 (editor-read current-editor))))
-	(set! auto-save-keystroke-count (fix:+ auto-save-keystroke-count 1))
-	(ring-push! (current-char-history) key)
-	(if *defining-keyboard-macro?* (keyboard-macro-write-key key))
+	(cond ((key? key)
+	       (set! auto-save-keystroke-count
+		     (fix:+ auto-save-keystroke-count 1))
+	       (ring-push! (current-char-history) key)
+	       (if *defining-keyboard-macro?* (keyboard-macro-write-key key)))
+	      (*defining-keyboard-macro?*
+	       ((ref-command end-kbd-macro) 1)))
 	key)))
 
 (define (keyboard-peek-no-hang)