# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1183807444 0
# Node ID 1b1bd44b4a3c6de0bd8d14635705304b02affbaa
# Parent  442f874e0b22e0d5b9d5921f67b719ec3deb349c
(menu-bar-open): New function.  Bind <f10> to it.

diff -r 442f874e0b22 -r 1b1bd44b4a3c lisp/term/w32-win.el
--- a/lisp/term/w32-win.el	Sat Jul 07 03:42:40 2007 +0000
+++ b/lisp/term/w32-win.el	Sat Jul 07 11:24:04 2007 +0000
@@ -1041,8 +1041,18 @@
 
 ;;; make f10 activate the real menubar rather than the mini-buffer menu
 ;;; navigation feature.
-(global-set-key [f10] (lambda ()
-			(interactive) (w32-send-sys-command ?\xf100)))
+(defun menu-bar-open (&optional frame)
+  "Start key navigation of the menu bar in FRAME.
+
+This initially activates 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.
+
+If FRAME is nil or not given, use the selected frame."
+  (interactive "i")
+  (w32-send-sys-command ?\xf100 frame))
+;
+(global-set-key [f10] 'menu-bar-open)
 
 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame
 			   global-map)