# HG changeset patch
# User David Kastrup <dak@gnu.org>
# Date 1172825113 0
# Node ID 54d760abd1c5c3d2fc4a9c332b2b38c96dcf8666
# Parent  2fb154fe6599b9044c018b684183352d4aa3ccae
*** empty log message ***

diff -r 2fb154fe6599 -r 54d760abd1c5 src/ChangeLog
--- a/src/ChangeLog	Fri Mar 02 01:51:45 2007 +0000
+++ b/src/ChangeLog	Fri Mar 02 08:45:13 2007 +0000
@@ -1,3 +1,8 @@
+2007-03-02  Stuart D. Herring <herring@lanl.gov>
+
+	* keymap.c (Fkey_binding): Don't consider two-element lists as
+	events.
+
 2007-03-01  Kenichi Handa  <handa@m17n.org>
 
 	* process.c (send_process_object): Check the process status and
diff -r 2fb154fe6599 -r 54d760abd1c5 src/keymap.c
--- a/src/keymap.c	Fri Mar 02 01:51:45 2007 +0000
+++ b/src/keymap.c	Fri Mar 02 08:45:13 2007 +0000
@@ -1612,10 +1612,10 @@
 
       /* We are not interested in locations without event data */
 
-      if (EVENT_HAS_PARAMETERS (event))
+      if (EVENT_HAS_PARAMETERS (event) && CONSP (XCDR (event)))
 	{
 	  Lisp_Object kind = EVENT_HEAD_KIND (EVENT_HEAD (event));
-	  if (CONSP (XCDR (event)) && EQ (kind, Qmouse_click))
+	  if (EQ (kind, Qmouse_click))
 	    position = EVENT_START (event);
 	}
     }