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

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

1 files changed, 3 insertions, 1 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index f3d008e95dd..76a6c15c157 100644
--- 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);