mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 16:21:07 -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 2003-02-04 19:24:26 +00:00
parent a82f924203
commit 2f2c059ddc
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

@ -10571,14 +10571,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)
&& (CHARACTERP (c = Fgethash (make_number (keysym),
Vx_keysym_table,
Qnil))))
{
bufp->kind = (ASCII_CHAR_P (c)
bufp->kind = (ASCII_CHAR_P (XFASTINT (c))
? ascii_keystroke
: multibyte_char_keystroke);
bufp->code = c;
bufp->code = XFASTINT (c);
XSETFRAME (bufp->frame_or_window, f);
bufp->arg = Qnil;
bufp->modifiers