# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 768613097 0
# Node ID 5589126476cad619bb4ed7b7d336a6e8bea1de52
# Parent  3b974ab09824a3998b70b2e8ed06ee13886332bf
(read_char): Preserve echo area on asynch buffer switch.

diff -r 3b974ab09824 -r 5589126476ca src/keyboard.c
--- a/src/keyboard.c	Tue May 10 23:30:23 1994 +0000
+++ b/src/keyboard.c	Tue May 10 23:38:17 1994 +0000
@@ -1629,7 +1629,9 @@
 
   start_polling ();
 
-  echo_area_glyphs = 0;
+  /* Don't wipe the echo area for a trivial event.  */
+  if (XTYPE (c) != Lisp_Buffer)
+    echo_area_glyphs = 0;
 
   /* Handle things that only apply to characters.  */
   if (XTYPE (c) == Lisp_Int)