/[emacs]/emacs/src/keymap.c
ViewVC logotype

Diff of /emacs/src/keymap.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.290 by teirllm, Wed Jun 23 17:03:50 2004 UTC revision 1.290.2.1 by miles, Sat Sep 4 12:01:18 2004 UTC
# Line 130  static void silly_event_symbol_error P_ Line 130  static void silly_event_symbol_error P_
130    
131  DEFUN ("make-keymap", Fmake_keymap, Smake_keymap, 0, 1, 0,  DEFUN ("make-keymap", Fmake_keymap, Smake_keymap, 0, 1, 0,
132         doc: /* Construct and return a new keymap, of the form (keymap CHARTABLE . ALIST).         doc: /* Construct and return a new keymap, of the form (keymap CHARTABLE . ALIST).
133  CHARTABLE is a char-table that holds the bindings for the ASCII  CHARTABLE is a char-table that holds the bindings for all characters
134  characters.  ALIST is an assoc-list which holds bindings for function keys,  without modifiers.  All entries in it are initially nil, meaning
135  mouse events, and any other things that appear in the input stream.  "command undefined".  ALIST is an assoc-list which holds bindings for
136  All entries in it are initially nil, meaning "command undefined".  function keys, mouse events, and any other things that appear in the
137    input stream.  Initially, ALIST is nil.
138    
139  The optional arg STRING supplies a menu name for the keymap  The optional arg STRING supplies a menu name for the keymap
140  in case you use it as a menu with `x-popup-menu'.  */)  in case you use it as a menu with `x-popup-menu'.  */)
# Line 342  keymap_memberp (map, maps) Line 343  keymap_memberp (map, maps)
343    
344  DEFUN ("set-keymap-parent", Fset_keymap_parent, Sset_keymap_parent, 2, 2, 0,  DEFUN ("set-keymap-parent", Fset_keymap_parent, Sset_keymap_parent, 2, 2, 0,
345         doc: /* Modify KEYMAP to set its parent map to PARENT.         doc: /* Modify KEYMAP to set its parent map to PARENT.
346  PARENT should be nil or another keymap.  */)  Return PARENT.  PARENT should be nil or another keymap.  */)
347       (keymap, parent)       (keymap, parent)
348       Lisp_Object keymap, parent;       Lisp_Object keymap, parent;
349  {  {
# Line 728  map_keymap_call (key, val, fun, dummy) Line 729  map_keymap_call (key, val, fun, dummy)
729    
730  DEFUN ("map-keymap", Fmap_keymap, Smap_keymap, 2, 2, 0,  DEFUN ("map-keymap", Fmap_keymap, Smap_keymap, 2, 2, 0,
731         doc: /* Call FUNCTION for every binding in KEYMAP.         doc: /* Call FUNCTION for every binding in KEYMAP.
732  FUNCTION is called with two arguments: the event and its binding.  */)  FUNCTION is called with two arguments: the event and its binding.
733    If KEYMAP has a parent, the parent's bindings are included as well.
734    This works recursively: if the parent has itself a parent, then the
735    grandparent's bindings are also included and so on.  */)
736       (function, keymap)       (function, keymap)
737       Lisp_Object function, keymap;       Lisp_Object function, keymap;
738  {  {
# Line 1602  is non-nil, `key-binding' returns the un Line 1606  is non-nil, `key-binding' returns the un
1606    
1607  DEFUN ("local-key-binding", Flocal_key_binding, Slocal_key_binding, 1, 2, 0,  DEFUN ("local-key-binding", Flocal_key_binding, Slocal_key_binding, 1, 2, 0,
1608         doc: /* Return the binding for command KEYS in current local keymap only.         doc: /* Return the binding for command KEYS in current local keymap only.
1609  KEYS is a string, a sequence of keystrokes.  KEYS is a string or vector, a sequence of keystrokes.
1610  The binding is probably a symbol with a function definition.  The binding is probably a symbol with a function definition.
1611    
1612  If optional argument ACCEPT-DEFAULT is non-nil, recognize default  If optional argument ACCEPT-DEFAULT is non-nil, recognize default
# Line 1621  bindings; see the description of `lookup Line 1625  bindings; see the description of `lookup
1625    
1626  DEFUN ("global-key-binding", Fglobal_key_binding, Sglobal_key_binding, 1, 2, 0,  DEFUN ("global-key-binding", Fglobal_key_binding, Sglobal_key_binding, 1, 2, 0,
1627         doc: /* Return the binding for command KEYS in current global keymap only.         doc: /* Return the binding for command KEYS in current global keymap only.
1628  KEYS is a string, a sequence of keystrokes.  KEYS is a string or vector, a sequence of keystrokes.
1629  The binding is probably a symbol with a function definition.  The binding is probably a symbol with a function definition.
1630  This function's return values are the same as those of `lookup-key'  This function's return values are the same as those of `lookup-key'
1631  \(which see).  \(which see).
# Line 1686  If a second optional argument MAPVAR is Line 1690  If a second optional argument MAPVAR is
1690  its value instead of as COMMAND's value; but COMMAND is still defined  its value instead of as COMMAND's value; but COMMAND is still defined
1691  as a function.  as a function.
1692  The third optional argument NAME, if given, supplies a menu name  The third optional argument NAME, if given, supplies a menu name
1693  string for the map.  This is required to use the keymap as a menu.  */)  string for the map.  This is required to use the keymap as a menu.
1694    This function returns COMMAND.  */)
1695       (command, mapvar, name)       (command, mapvar, name)
1696       Lisp_Object command, mapvar, name;       Lisp_Object command, mapvar, name;
1697  {  {
# Line 2571  where_is_internal (definition, keymaps, Line 2576  where_is_internal (definition, keymaps,
2576    
2577  DEFUN ("where-is-internal", Fwhere_is_internal, Swhere_is_internal, 1, 5, 0,  DEFUN ("where-is-internal", Fwhere_is_internal, Swhere_is_internal, 1, 5, 0,
2578         doc: /* Return list of keys that invoke DEFINITION.         doc: /* Return list of keys that invoke DEFINITION.
2579  If KEYMAP is non-nil, search only KEYMAP and the global keymap.  If KEYMAP is a keymap, search only KEYMAP and the global keymap.
2580  If KEYMAP is nil, search all the currently active keymaps.  If KEYMAP is nil, search all the currently active keymaps.
2581  If KEYMAP is a list of keymaps, search only those keymaps.  If KEYMAP is a list of keymaps, search only those keymaps.
2582    
# Line 2579  If optional 3rd arg FIRSTONLY is non-nil Line 2584  If optional 3rd arg FIRSTONLY is non-nil
2584  rather than a list of all possible key sequences.  rather than a list of all possible key sequences.
2585  If FIRSTONLY is the symbol `non-ascii', return the first binding found,  If FIRSTONLY is the symbol `non-ascii', return the first binding found,
2586  no matter what it is.  no matter what it is.
2587  If FIRSTONLY has another non-nil value, prefer sequences of ASCII characters,  If FIRSTONLY has another non-nil value, prefer sequences of ASCII characters
2588  and entirely reject menu bindings.  \(or their meta variants) and entirely reject menu bindings.
2589    
2590  If optional 4th arg NOINDIRECT is non-nil, don't follow indirections  If optional 4th arg NOINDIRECT is non-nil, don't follow indirections
2591  to other keymaps or slots.  This makes it possible to search for an  to other keymaps or slots.  This makes it possible to search for an
# Line 3750  key, typing `ESC O P x' would return [f1 Line 3755  key, typing `ESC O P x' would return [f1
3755    DEFVAR_LISP ("key-translation-map", &Vkey_translation_map,    DEFVAR_LISP ("key-translation-map", &Vkey_translation_map,
3756                 doc: /* Keymap of key translations that can override keymaps.                 doc: /* Keymap of key translations that can override keymaps.
3757  This keymap works like `function-key-map', but comes after that,  This keymap works like `function-key-map', but comes after that,
3758  and applies even for keys that have ordinary bindings.  */);  and its non-prefix bindings override ordinary bindings.  */);
3759    Vkey_translation_map = Qnil;    Vkey_translation_map = Qnil;
3760    
3761    staticpro (&Vmouse_events);    staticpro (&Vmouse_events);

Legend:
Removed from v.1.290  
changed lines
  Added in v.1.290.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26