martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(read_char): Don't show buffer-events to the user.

Browse Source 
Handle chars over 255 in dribble files.
This commit is contained in:
Richard M. Stallman
1994-08-19 07:06:30 +00:00
parent 7d002ae169
commit dfd11da790
1 changed files with 13 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/keyboard.c
View File

@@ -1715,9 +1715,13 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
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 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
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;