From 7f8f0e6709ac15e077b94fa361d914dea14e9a48 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 31 Dec 1998 13:16:45 +0000 Subject: [PATCH] (Fdefine_prefix_command): Accept a third argument NAME and pass it to Fmake_sparse_keymap. --- src/keymap.c | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/src/keymap.c b/src/keymap.c index ce59d5ae19f..caf4300187f 100644 --- a/src/keymap.c +++ b/src/keymap.c @@ -1357,17 +1357,19 @@ bindings; see the description of `lookup-key' for more details about this.") 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); -- 2.39.2