From: Dave Love <fx@gnu.org>
Date: Mon, 4 Nov 2002 14:29:04 +0000 (+0000)
Subject: (XTread_socket): Check Lisp types for Vx_keysym_table
X-Git-Tag: ttn-vms-21-2-B4~12602
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7706646eb22dbf8819b0071e94fdeb2ce53dbea;p=emacs.git

(XTread_socket): Check Lisp types for Vx_keysym_table
and fix C types.
---

diff --git a/src/xterm.c b/src/xterm.c
index 1b16ba85055..eef2eb15976 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -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