From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 14 Feb 2013 14:40:54 +0000 (-0500)
Subject: * src/keyboard.c (active_maps): Fcurrent_active_maps expects a position, not
X-Git-Tag: emacs-24.3.90~173^2~7^2~40
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e31560a79130b8f477883a9a32253cb1ed3b3ef2;p=emacs.git

* src/keyboard.c (active_maps): Fcurrent_active_maps expects a position, not
an event.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 82cc8f0f552..3c9ea256547 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/src/keyboard.c b/src/keyboard.c
index 47507483859..fe1c3d77eb6 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -8644,7 +8644,8 @@ follow_key (Lisp_Object keymap, Lisp_Object key)
 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));
 }