From 1ae2097f5083eaf491f5a2c1efd19b712b6c3c5a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 7 Aug 1994 06:40:55 +0000 Subject: [PATCH] (Faccessible_keymaps): Fix previous change. --- src/keymap.c | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/keymap.c b/src/keymap.c index 7ad4bacc255..bad22160a9c 100644 --- 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; } -- 2.39.5