Mercurial > hg > xemacs-beta

comparison src/keymap.h @ 272:c5d627a313b1 r21-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 262b8bb4a523
children 8626e4521993
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
30 #define KEYMAPP(x) RECORDP (x, keymap) 30 #define KEYMAPP(x) RECORDP (x, keymap)
31 #define GC_KEYMAPP(x) GC_RECORDP (x, keymap) 31 #define GC_KEYMAPP(x) GC_RECORDP (x, keymap)
32 #define CHECK_KEYMAP(x) CHECK_RECORD (x, keymap) 32 #define CHECK_KEYMAP(x) CHECK_RECORD (x, keymap)
33 #define CONCHECK_KEYMAP(x) CONCHECK_RECORD (x, keymap) 33 #define CONCHECK_KEYMAP(x) CONCHECK_RECORD (x, keymap)
34 34
35 extern Lisp_Object get_keymap (Lisp_Object object, int errorp, int autoload); 35 EXFUN (Fkeymap_prompt, 2);
36 extern Lisp_Object event_binding (Lisp_Object event0, int accept_default); 36 EXFUN (Fkeymapp, 1);
37 extern Lisp_Object event_binding_in (Lisp_Object event0, Lisp_Object keymap, 37 EXFUN (Fmake_keymap, 1);
38 int accept_default); 38 EXFUN (Fwhere_is_internal, 5);
39 extern Lisp_Object munging_key_map_event_binding (Lisp_Object event0,
40 enum munge_me_out_the_door
41 munge);
42 39
43 extern Lisp_Object Fkey_description (Lisp_Object keys); 40 extern Lisp_Object Qalt, Qcontrol, Qhyper, Qmeta, Qshift, Qsuper;
44 extern Lisp_Object Fsingle_key_description (Lisp_Object key); 41 extern Lisp_Object Vmeta_prefix_char;
45 extern Lisp_Object Fwhere_is_internal (Lisp_Object definition,
46 Lisp_Object keymaps,
47 Lisp_Object firstonly,
48 Lisp_Object noindirect,
49 Lisp_Object event_or_keys);
50 42
51 extern Lisp_Object Fkeymap_name (Lisp_Object keymap); 43 Lisp_Object get_keymap (Lisp_Object object, int errorp, int autoload);
52 extern Lisp_Object Fset_keymap_name (Lisp_Object keymap, Lisp_Object name); 44 Lisp_Object event_binding (Lisp_Object event0, int accept_default);
53 extern Lisp_Object Fkeymap_prompt (Lisp_Object keymap, Lisp_Object inherit); 45 Lisp_Object event_binding_in (Lisp_Object event0, Lisp_Object keymap,
54 extern Lisp_Object Fset_keymap_prompt (Lisp_Object keymap, Lisp_Object prompt); 46 int accept_default);
55 47
56 extern int relevant_keymaps_to_search (Lisp_Object keys, 48 Lisp_Object munging_key_map_event_binding (Lisp_Object event0,
57 int max_maps, Lisp_Object maps[]); 49 enum munge_me_out_the_door munge);
58 extern void describe_map_tree (Lisp_Object startmap, int partial, 50 int relevant_keymaps_to_search (Lisp_Object keys,
59 Lisp_Object shadow, Lisp_Object prefix, 51 int max_maps, Lisp_Object maps[]);
60 int mice_only_p, Lisp_Object buffer); 52 void describe_map_tree (Lisp_Object startmap, int partial,
53 Lisp_Object shadow, Lisp_Object prefix,
54 int mice_only_p, Lisp_Object buffer);
61 55
62 extern void key_desc_list_to_event (Lisp_Object list, Lisp_Object event, 56 void key_desc_list_to_event (Lisp_Object list, Lisp_Object event,
63 int allow_menu_events); 57 int allow_menu_events);
64 58
65 extern Lisp_Object Vmeta_prefix_char; 59 int event_matches_key_specifier_p (struct Lisp_Event *event,
66 extern int event_matches_key_specifier_p (struct Lisp_Event *event, 60 Lisp_Object key_specifier);
67 Lisp_Object key_specifier);
68 61
69 #endif /* _XEMACS_KEYMAP_H_ */ 62 #endif /* _XEMACS_KEYMAP_H_ */