mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 18:00:40 -08:00
Code Issues Projects Releases Wiki Activity

(XTread_socket): Check Lisp types for Vx_keysym_table

Browse source 
and fix C types.
This commit is contained in:
Dave Love 2002-11-04 14:29:04 +00:00
parent e571462046
commit f7706646eb
1 changed files with 6 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/xterm.c
View file

@ -10758,14 +10758,15 @@ XTread_socket (sd, bufp, numchars, expected)
numchars--;
}
/* Now non-ASCII. */
else if (! EQ ((c = Fgethash (make_number (keysym),
Vx_keysym_table, Qnil)),
Qnil))
else if (HASH_TABLE_P (Vx_keysym_table)
&& (NATNUMP (c = Fgethash (make_number (keysym),
Vx_keysym_table,
Qnil))))
{
bufp->kind = (SINGLE_BYTE_CHAR_P (c)
bufp->kind = (SINGLE_BYTE_CHAR_P (XFASTINT (c))
? ASCII_KEYSTROKE_EVENT
: MULTIBYTE_CHAR_KEYSTROKE_EVENT);
bufp->code = c;
bufp->code = XFASTINT (c);
XSETFRAME (bufp->frame_or_window, f);
bufp->arg = Qnil;
bufp->modifiers