comparison 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
comparison
equal deleted inserted replaced
76268:2fb154fe6599 76269:54d760abd1c5
1610 scrollbar or mode line */ 1610 scrollbar or mode line */
1611 = AREF (key, SYMBOLP (AREF (key, 0)) && ASIZE (key) > 1 ? 1 : 0); 1611 = AREF (key, SYMBOLP (AREF (key, 0)) && ASIZE (key) > 1 ? 1 : 0);
1612 1612
1613 /* We are not interested in locations without event data */ 1613 /* We are not interested in locations without event data */
1614 1614
1615 if (EVENT_HAS_PARAMETERS (event)) 1615 if (EVENT_HAS_PARAMETERS (event) && CONSP (XCDR (event)))
1616 { 1616 {
1617 Lisp_Object kind = EVENT_HEAD_KIND (EVENT_HEAD (event)); 1617 Lisp_Object kind = EVENT_HEAD_KIND (EVENT_HEAD (event));
1618 if (CONSP (XCDR (event)) && EQ (kind, Qmouse_click)) 1618 if (EQ (kind, Qmouse_click))
1619 position = EVENT_START (event); 1619 position = EVENT_START (event);
1620 } 1620 }
1621 } 1621 }
1622 1622
1623 /* Key sequences beginning with mouse clicks 1623 /* Key sequences beginning with mouse clicks