/usr/share/jed/lib/menus.sl is in jed-common 1:0.99.19-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 | public variable Menu_Popups_Loaded = 0;
$1 = "Global";
menu_create_menu_bar ($1);
menu_append_popup ($1, "&File");
menu_append_popup ($1, "&Edit");
menu_append_popup ($1, "M&ode"); % mode-specific
menu_append_popup ($1, "&Search");
menu_append_popup ($1, "&Buffers");
menu_append_popup ($1, "W&indows"); % Emacs uses ESC-w for yank. Keep it
!if (_jed_secure_mode)
menu_append_popup ($1, "S&ystem");
menu_append_popup ($1, "&Help");
menu_set_menu_bar_prefix ($1, "F10 key ==> ");
#ifndef IBMPC_SYSTEM
setkey ("select_menubar", "\e[21~"); % F10
# ifdef UNIX
_for (0, 9, 1)
{
% Bind keys F0-F9 to select_menubar.
$1 = ();
setkey ("select_menubar", sprintf ("^(k%d)", $1));
}
#endif
#endif
private define unset_setkey (fun, key)
{
unsetkey (key);
setkey (fun, key);
}
define enable_menu_keys ()
{
#ifdef UNIX
unset_setkey ("select_menubar", "^(k;)");
#else
# ifdef IBMPC_SYSTEM
unset_setkey ("select_menubar", "^@D");
# endif
#endif
unset_setkey ("select_menubar", "\em");
unset_setkey ("@\emF", "\ef");
unset_setkey ("@\emE", "\ee");
unset_setkey ("@\emo", "\eo"); % Mode menu
unset_setkey ("@\emS", "\es");
unset_setkey ("@\emB", "\eb");
unset_setkey ("@\emi", "\ei");
unset_setkey ("@\emH", "\eh");
unset_setkey ("@\emy", "\ey");
#ifdef IBMPC_SYSTEM
unset_setkey ("@\emF", "^@!"); % Alt-F
unset_setkey ("@\emE", "^@^R"); % Alt-E
unset_setkey ("@\emo", "^@^X"); % Alt-O
unset_setkey ("@\emS", "^@^_"); % Alt-S
unset_setkey ("@\emB", "^@0"); % Alt-B
unset_setkey ("@\emi", "^@^W"); % Alt-I
unset_setkey ("@\emH", "^@#"); % Alt-H
unset_setkey ("@\emy", "^@^U"); % Alt-Y
#endif
}
enable_menu_keys ();
private variable Active_Mode = NULL;
private define init_mode_callback (menu)
{
variable fun;
variable mode;
mode = get_mode_name ();
if (mode == Active_Mode)
return;
Active_Mode = mode;
menu += ".M&ode";
menu_delete_items (menu);
fun = mode_get_mode_info ("init_mode_menu");
if (fun == NULL)
{
menu_set_object_available (menu, 0);
return;
}
menu_set_object_available (menu, 1);
@fun (menu);
}
autoload ("menu_load_popups", "popups");
menu_set_init_menubar_callback ("Global", &init_mode_callback);
menu_set_select_menubar_callback ("Global", &menu_load_popups);
|