diff src/keymap.c @ 76269:54d760abd1c5

*** empty log message ***
author David Kastrup <dak@gnu.org>
date Fri, 02 Mar 2007 08:45:13 +0000
parents 42d89518722a
children a31980a5f310 edf631bdbb7a ec58e5c426ef
line wrap: on
line diff
--- 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);
 	}
     }