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

[gnu-emacs] / src / keyboard.c

diff --git a/src/keyboard.c b/src/keyboard.c
index 47507483859c60b7aa212440ae76861349fb06a1..fe1c3d77eb6644a21ca17a173cac049c0919e764 100644 (file)
--- 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));
 }