*** empty log message ***

diff --git a/src/ChangeLog b/src/ChangeLog
index afb6ce8b7b3ce89b5a540581b0bbdef04d89d095..d9633301be20aa8c1fe9038220e61481a68311cf 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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 --git a/src/keymap.c b/src/keymap.c
index 6b4b8536fe19f0532ede5e8e6ff9dab12159e0ef..dd126a9a8f3755f0cedbd3573aa0bf7256c14675 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1612,10 +1612,10 @@ specified buffer position instead of point are used.
 
       /* 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);
        }
     }