Mercurial > emacs
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), |