Mercurial > emacs
diff src/xmenu.c @ 83537:c19f348befac
Fix F10 behaviour. (Reported by Bernard Adrian.)
* src/xmenu.c (Fx_menu_bar_open) [USE_X_TOOLKIT, USE_GTK]:
Rename from Fmenu_bar_open.
(syms_of_xmenu): Update defsubr.
* lisp/menu-bar.el (menu-bar-open): New function.
Bind it to f10.
* lisp/term/x-win.el: Don't bind f10.
* lisp/tmm.el: Remove autoload binding for f10.
* lisp/ldefs-boot.el: Regenerate.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-577
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Sat, 29 Jul 2006 20:57:26 +0000 |
| parents | 46b1096093f5 |
| children | 2d56e13fd23d |
line wrap: on
line diff
--- a/src/xmenu.c Sat Jul 29 18:41:57 2006 +0000 +++ b/src/xmenu.c Sat Jul 29 20:57:26 2006 +0000 @@ -1310,7 +1310,7 @@ } } -DEFUN ("menu-bar-open", Fmenu_bar_open, Smenu_bar_open, 0, 1, "i", +DEFUN ("x-menu-bar-open", Fx_menu_bar_open, Sx_menu_bar_open, 0, 1, "i", doc: /* Start key navigation of the menu bar in FRAME. This initially opens the first menu bar item and you can then navigate with the arrow keys, select a menu entry with the return key or cancel with the @@ -1389,7 +1389,7 @@ #ifdef USE_GTK -DEFUN ("menu-bar-open", Fmenu_bar_open, Smenu_bar_open, 0, 1, "i", +DEFUN ("x-menu-bar-open", Fx_menu_bar_open, Sx_menu_bar_open, 0, 1, "i", doc: /* Start key navigation of the menu bar in FRAME. This initially opens the first menu bar item and you can then navigate with the arrow keys, select a menu entry with the return key or cancel with the @@ -3816,9 +3816,10 @@ defsubr (&Sx_popup_menu); #if defined (USE_GTK) || defined (USE_X_TOOLKIT) - defsubr (&Smenu_bar_open); - Fdefalias (intern ("accelerate-menu"), intern (Smenu_bar_open.symbol_name), - Qnil); + defsubr (&Sx_menu_bar_open); + Fdefalias (intern ("accelerate-menu"), + intern (Sx_menu_bar_open.symbol_name), + Qnil); #endif #ifdef HAVE_MENUS