From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 6 Jul 1993 20:35:48 +0000 (+0000)
Subject: Try not to clear the message unnecessarily when processing input
X-Git-Tag: 20090517-FFI~8213
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1fc83657a0cdbcd1841bcb6b86f9f186bc8e690b;p=mit-scheme.git

Try not to clear the message unnecessarily when processing input
events.
---

diff --git a/v7/src/edwin/comred.scm b/v7/src/edwin/comred.scm
index 88acd09c7..f84fceb69 100644
--- a/v7/src/edwin/comred.scm
+++ b/v7/src/edwin/comred.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: comred.scm,v 1.96 1993/01/10 10:46:38 cph Exp $
+;;;	$Id: comred.scm,v 1.97 1993/07/06 20:35:48 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -85,6 +85,7 @@
       (within-continuation *command-continuation*
 	(lambda ()
 	  (cond ((input-event? input)
+		 (reset-command-state!)
 		 (apply-input-event input))
 		((command? input)
 		 (execute-command input))
@@ -104,8 +105,6 @@
 (define (apply-input-event input-event)
   (if (not (input-event? input-event))
       (error:wrong-type-argument input-event "input event" apply-input-event))
-  (clear-message)
-  (reset-command-state!)
   (apply (input-event/operator input-event)
 	 (input-event/operands input-event)))
 
@@ -238,6 +237,8 @@
   (%dispatch-on-command (current-window) command false))
 
 (define (execute-button-command screen button x y)
+  (clear-message)
+  (reset-command-state!)
   (send (screen-root-window screen) ':button-event! button x y))
 
 (define (read-and-dispatch-on-key)