From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 Aug 1989 09:49:13 +0000 (+0000)
Subject: Suppress redisplay of minibuffer messages during keyboard-macro
X-Git-Tag: 20090517-FFI~11829
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a3cda596d048052f28a0daf24e19697b291a256c;p=mit-scheme.git

Suppress redisplay of minibuffer messages during keyboard-macro
execution.
---

diff --git a/v7/src/edwin/prompt.scm b/v7/src/edwin/prompt.scm
index 11b92e31b..e11ec3d06 100644
--- a/v7/src/edwin/prompt.scm
+++ b/v7/src/edwin/prompt.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.135 1989/08/09 13:18:02 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/prompt.scm,v 1.136 1989/08/14 09:49:13 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989 Massachusetts Institute of Technology
 ;;;
@@ -171,15 +171,20 @@ recursive minibuffers."
 (define (set-message! message)
   (let ((window (typein-window)))
     (window-set-override-message! window message)
-    (window-direct-update! window true)))
+    (if (not *executing-keyboard-macro?*)
+	(window-direct-update! window true))))
 
 (define (clear-message!)
   (let ((window (typein-window)))
     (window-clear-override-message! window)
+    (if (not *executing-keyboard-macro?*)
+	(window-direct-update! window true))
     (window-direct-update! window true)))
 
 (define (update-typein!)
-  (window-direct-update! (typein-window) false))
+    (if (not *executing-keyboard-macro?*)
+	(window-direct-update! (typein-window) false)))
+
 (define (temporary-typein-message string)
   (let ((point) (start) (end))
     (dynamic-wind (lambda ()