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'. */) |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
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). |
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 |
{ |
{ |
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 |
|
|
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 |
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); |