(read_char): Don't clear a message for a switch-frame

event.   From Stefan Monnier  <monnier@cs.yale.edu>.

diff --git a/src/keyboard.c b/src/keyboard.c
index f3d008e95ddd74065671229ce8defae6fb878769..76a6c15c15755d6db0f227b75d3281e82187a26a 100644 (file)
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2734,7 +2734,9 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
 
   /* 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);