(Faccessible_keymaps): Fix previous change.

diff --git a/src/keymap.c b/src/keymap.c
index 7ad4bacc2551f499538347b352a3699e882f4e95..bad22160a9cf619f7be7448b49e4981b655286dd 100644 (file)
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -1173,10 +1173,12 @@ then the value includes only maps for prefixes that start with PREFIX.")
         that prefix, so we don't waste time considering other prefixes.  */
       Lisp_Object tem;
       tem = Flookup_key (startmap, prefix, Qt);
-      /* If PREFIX is reasonable, Flookup_key should give a keymap or nil.
-        For any other value it is ok to get an error here.  */
+      /* Flookup_key may give us nil, or a number,
+        if the prefix is not defined in this particular map.
+        It might even give us a list that isn't a keymap.  */
+      tem = get_keymap_1 (tem, 0, 0);
       if (!NILP (tem))
-       maps = Fcons (Fcons (prefix, get_keymap (tem)), Qnil);
+       maps = Fcons (Fcons (prefix, tem), Qnil);
       else
        return Qnil;
     }