# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1001413124 0
# Node ID 9a94c8b3b45029c99aca8dd8ef2ac74171bc16af
# Parent  46442d0ccb28d7a069ad578b0c5c7f9a2244754b
(read_char): Don't clear a message for a switch-frame
event.   From Stefan Monnier  <monnier@cs.yale.edu>.

diff -r 46442d0ccb28 -r 9a94c8b3b450 src/keyboard.c
--- a/src/keyboard.c	Tue Sep 25 10:12:53 2001 +0000
+++ b/src/keyboard.c	Tue Sep 25 10:18:44 2001 +0000
@@ -2734,7 +2734,9 @@
 
   /* Now wipe the echo area, except for help events which do their
      own stuff with the echo area.  */
-  if (!CONSP (c) || !(EQ (Qhelp_echo, XCAR (c))))
+  if (!CONSP (c)
+      || (!(EQ (Qhelp_echo, XCAR (c)))
+	  && !(EQ (Qswitch_frame, XCAR (c)))))
     {
       if (!NILP (echo_area_buffer[0]))
 	safe_run_hooks (Qecho_area_clear_hook);