Mercurial > emacs

changeset 8473:c285c3b0ea54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Faccessible_keymaps): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Aug 1994 06:40:55 +0000
parents 0d0b32e78a5b
children 03938bbc5bbb
files src/keymap.c
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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;
     }