# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 776241655 0
# Node ID c285c3b0ea5465b23551d8b703876645e93858e2
# Parent  0d0b32e78a5b8b26f8e57981d16ee7905a25ae84
(Faccessible_keymaps): Fix previous change.

diff -r 0d0b32e78a5b -r c285c3b0ea54 src/keymap.c
--- a/src/keymap.c	Sun Aug 07 04:51:57 1994 +0000
+++ b/src/keymap.c	Sun Aug 07 06:40:55 1994 +0000
@@ -1173,10 +1173,12 @@
 	 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;
     }