* keymap.c (Fkey_binding): Check Lisp_Object types before doing

	XCAR and XINT.

2 files changed, 13 insertions, 8 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 495b55ce41f..30cae45ba84 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-12  Chong Yidong  <cyd@stupidchicken.com>
+
+        * keymap.c (Fkey_binding): Check Lisp_Object types before doing
+        XCAR and XINT.
+
 2006-10-12  Romain Francoise  <romain@orebokech.com>
 
         * image.c (xbm_read_bitmap_data): Delete extra semicolon.
diff --git a/src/keymap.c b/src/keymap.c
index 1476859ccd5..11e3e348da5 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1610,13 +1610,12 @@ specified buffer position instead of point are used.
 
       /* We are not interested in locations without event data */
 
-      if (EVENT_HAS_PARAMETERS (event)) {
-        Lisp_Object kind;
-
-        kind = EVENT_HEAD_KIND (EVENT_HEAD (event));
-        if (EQ (kind, Qmouse_click))
-          position = EVENT_START (event);
-      }
+      if (EVENT_HAS_PARAMETERS (event))
+        {
+          Lisp_Object kind = EVENT_HEAD_KIND (EVENT_HEAD (event));
+          if (CONSP (XCDR (event)) && EQ (kind, Qmouse_click))
+            position = EVENT_START (event);
+        }
     }
 
   /* Key sequences beginning with mouse clicks
@@ -1709,7 +1708,8 @@ specified buffer position instead of point are used.
               
               pos = XCDR (string);
               string = XCAR (string);
-              if (XINT (pos) >= 0
+              if (INTEGERP (pos)
+                  && XINT (pos) >= 0
                   && XINT (pos) < SCHARS (string))
                 {
                   map = Fget_text_property (pos, Qlocal_map, string);