comparison src/lisp.h @ 32476:9b2a0dc393a4

* keymap.c (access_keymap): Add AUTOLOAD parameter. Do the meta->esc mapping. Call get_keyelt before returning. Start scanning from the second element (the first is always `keymap') to make it easier to detect when we reach a parent map. Handle the case of inheriting from a symbol whose function is a map. (Fkeymap_parent): Also handle the `inherit from symbol' case. (fix_submap_inheritance, Fdefine_key): Update call to access_keymap. (get_keyelt, Flookup_key): Update call to access_keymap. Remove the meta->esc mappings. (define_as_prefix): Delete old disabled code. (menu_item_p): New function. (where_is_internal_1): Skip over the few remaining menu items. * lisp.h (access_keymap): Update prototype. * keyboard.c (read_char, menu_bar_items, tool_bar_items): Update call to access_keymap. (follow_key, read_key_sequence): Update calls to access_keymap. Remove the meta->esc mappings.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 15 Oct 2000 03:31:21 +0000
parents fea92799d3e9
children a4ed8c8001bd
comparison
equal deleted inserted replaced
32475:753586cbb758 32476:9b2a0dc393a4
2589 EXFUN (Flookup_key, 3); 2589 EXFUN (Flookup_key, 3);
2590 EXFUN (Fkey_binding, 2); 2590 EXFUN (Fkey_binding, 2);
2591 EXFUN (Fkey_description, 1); 2591 EXFUN (Fkey_description, 1);
2592 EXFUN (Fsingle_key_description, 2); 2592 EXFUN (Fsingle_key_description, 2);
2593 EXFUN (Fwhere_is_internal, 4); 2593 EXFUN (Fwhere_is_internal, 4);
2594 extern Lisp_Object access_keymap P_ ((Lisp_Object, Lisp_Object, int, int)); 2594 extern Lisp_Object access_keymap P_ ((Lisp_Object, Lisp_Object, int, int, int));
2595 extern Lisp_Object get_keyelt P_ ((Lisp_Object, int)); 2595 extern Lisp_Object get_keyelt P_ ((Lisp_Object, int));
2596 extern Lisp_Object get_keymap P_ ((Lisp_Object)); 2596 extern Lisp_Object get_keymap P_ ((Lisp_Object));
2597 extern Lisp_Object get_keymap_1 P_ ((Lisp_Object, int, int)); 2597 extern Lisp_Object get_keymap_1 P_ ((Lisp_Object, int, int));
2598 extern void describe_vector P_ ((Lisp_Object, Lisp_Object, 2598 extern void describe_vector P_ ((Lisp_Object, Lisp_Object,
2599 void (*) (Lisp_Object), int, 2599 void (*) (Lisp_Object), int,