diff lisp/menu-bar.el @ 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

--- a/lisp/menu-bar.el	Sat Jul 29 18:41:57 2006 +0000
+++ b/lisp/menu-bar.el	Sat Jul 29 20:57:26 2006 +0000
@@ -1768,6 +1768,22 @@
       (menu-bar-mode (if (> (frame-parameter nil 'menu-bar-lines) 0) 0 1))
     (menu-bar-mode arg)))
 
+(defun menu-bar-open (&optional frame)
+  "Start key navigation of the menu bar in FRAME.
+
+This function decides which method to use to access the menu
+depending on FRAME's terminal device.  On X displays, it calls
+`x-menu-bar-open'; otherwise it calls `tmm-menubar'.
+
+If FRAME is nil or not given, use the selected frame."
+  (interactive)
+  (if (eq window-system 'x)
+      (x-menu-bar-open frame)
+    (with-selected-frame (or frame (selected-frame))
+      (tmm-menubar))))
+
+(global-set-key [f10] 'menu-bar-open)
+
 (provide 'menu-bar)
 
 ;;; arch-tag: 6e6a3c22-4ec4-4d3d-8190-583f8ef94ced