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