Mercurial > emacs
changeset 23968:4c423f69142b
(Fdefine_prefix_command): Accept a third argument NAME
and pass it to Fmake_sparse_keymap.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Thu, 31 Dec 1998 13:16:45 +0000 |
| parents | e4039c35f2f8 |
| children | 3e4e87cddb85 |
| files | src/keymap.c |
| diffstat | 1 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keymap.c Thu Dec 31 13:04:54 1998 +0000 +++ b/src/keymap.c Thu Dec 31 13:16:45 1998 +0000 @@ -1357,17 +1357,19 @@ return Flist (j, maps); } -DEFUN ("define-prefix-command", Fdefine_prefix_command, Sdefine_prefix_command, 1, 2, 0, +DEFUN ("define-prefix-command", Fdefine_prefix_command, Sdefine_prefix_command, 1, 3, 0, "Define COMMAND as a prefix command. COMMAND should be a symbol.\n\ A new sparse keymap is stored as COMMAND's function definition and its value.\n\ If a second optional argument MAPVAR is given, the map is stored as\n\ its value instead of as COMMAND's value; but COMMAND is still defined\n\ -as a function.") - (command, mapvar) - Lisp_Object command, mapvar; +as a function.\n\ +The third optional argument NAME, if given, supplies a menu name\n\ +string for the map. This is required to use the keymap as a menu.") + (command, mapvar, name) + Lisp_Object command, mapvar, name; { Lisp_Object map; - map = Fmake_sparse_keymap (Qnil); + map = Fmake_sparse_keymap (name); Ffset (command, map); if (!NILP (mapvar)) Fset (mapvar, map);