comparison 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: [e-mail]--2004/emacs--multi-tty--0--patch-577

83536:0014f454c421

      x_dispatch_event (&event, event.xany.display);
    }
}

DEFUN ("menu-bar-open", Fmenu_bar_open, Smenu_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
escape key.  If FRAME has no menu bar this function does nothing.

}
#endif /* USE_X_TOOLKIT */


#ifdef USE_GTK
DEFUN ("menu-bar-open", Fmenu_bar_open, Smenu_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
escape key.  If FRAME has no menu bar this function does nothing.

#endif

  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);
#endif

#ifdef HAVE_MENUS
  defsubr (&Sx_popup_dialog);
#endif

83537:c19f348befac

      x_dispatch_event (&event, event.xany.display);
    }
}

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
escape key.  If FRAME has no menu bar this function does nothing.

}
#endif /* USE_X_TOOLKIT */


#ifdef USE_GTK
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
escape key.  If FRAME has no menu bar this function does nothing.

#endif

  defsubr (&Sx_popup_menu);

#if defined (USE_GTK) || defined (USE_X_TOOLKIT)
  defsubr (&Sx_menu_bar_open);
  Fdefalias (intern ("accelerate-menu"),
	     intern (Sx_menu_bar_open.symbol_name),
	     Qnil);
#endif

#ifdef HAVE_MENUS
  defsubr (&Sx_popup_dialog);
#endif