comparison src/keymap.c @ 8473:c285c3b0ea54

(Faccessible_keymaps): Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Aug 1994 06:40:55 +0000
parents edbb014c600a
children a7fe53588b6f
comparison
equal deleted inserted replaced
8472:0d0b32e78a5b 8473:c285c3b0ea54
1171 { 1171 {
1172 /* If a prefix was specified, start with the keymap (if any) for 1172 /* If a prefix was specified, start with the keymap (if any) for
1173 that prefix, so we don't waste time considering other prefixes. */ 1173 that prefix, so we don't waste time considering other prefixes. */
1174 Lisp_Object tem; 1174 Lisp_Object tem;
1175 tem = Flookup_key (startmap, prefix, Qt); 1175 tem = Flookup_key (startmap, prefix, Qt);
1176 /* If PREFIX is reasonable, Flookup_key should give a keymap or nil. 1176 /* Flookup_key may give us nil, or a number,
1177 For any other value it is ok to get an error here. */ 1177 if the prefix is not defined in this particular map.
1178 It might even give us a list that isn't a keymap. */
1179 tem = get_keymap_1 (tem, 0, 0);
1178 if (!NILP (tem)) 1180 if (!NILP (tem))
1179 maps = Fcons (Fcons (prefix, get_keymap (tem)), Qnil); 1181 maps = Fcons (Fcons (prefix, tem), Qnil);
1180 else 1182 else
1181 return Qnil; 1183 return Qnil;
1182 } 1184 }
1183 else 1185 else
1184 maps = Fcons (Fcons (Fmake_vector (make_number (0), Qnil), 1186 maps = Fcons (Fcons (Fmake_vector (make_number (0), Qnil),