Mercurial > emacs

changeset 8569:3a9e9d3df590

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read_char): Don't show buffer-events to the user. Handle chars over 255 in dribble files.
author Richard M. Stallman <rms@gnu.org>
date Fri, 19 Aug 1994 07:06:30 +0000
parents 1e700f134344
children dd3dfde8f973
files src/keyboard.c
diffstat 1 files changed, 13 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Fri Aug 19 05:47:15 1994 +0000
+++ b/src/keyboard.c	Fri Aug 19 07:06:30 1994 +0000
@@ -1715,9 +1715,13 @@
 
   start_polling ();
 
-  /* Don't wipe the echo area for a trivial event.  */
-  if (XTYPE (c) != Lisp_Buffer)
-    echo_area_glyphs = 0;
+  /* Buffer switch events are only for internal wakeups
+     so don't show them to the user.  */
+  if (XTYPE (c) == Lisp_Buffer)
+    return c;
+
+  /* Wipe the echo area.  */
+  echo_area_glyphs = 0;
 
   /* Handle things that only apply to characters.  */
   if (XTYPE (c) == Lisp_Int)
@@ -1742,7 +1746,12 @@
   if (dribble)
     {
       if (XTYPE (c) == Lisp_Int)
-	putc (XINT (c), dribble);
+	{
+	  if (XUINT (c) < 0x100)
+	    putc (XINT (c), dribble);
+	  else
+	    fprintf (dribble, " 0x%x", XUINT (c));
+	}
       else
 	{
 	  Lisp_Object dribblee;