+2013-02-14 Stefan Monnier <monnier@iro.umontreal.ca>
+
+ * keyboard.c (active_maps): Fcurrent_active_maps expects a position, not
+ an event.
+
2013-02-13 Stefan Monnier <monnier@iro.umontreal.ca>
* keyboard.c (syms_of_keyboard): Further tweaks of docstring.
static Lisp_Object
active_maps (Lisp_Object first_event)
{
- Lisp_Object position = INTEGERP (first_event) ? Qnil : first_event;
+ Lisp_Object position
+ = CONSP (first_event) ? CAR_SAFE (XCDR (first_event)) : Qnil;
return Fcons (Qkeymap, Fcurrent_active_maps (Qt, position));
}