(menu-bar-open): New function. Bind <f10> to it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 319aacd11e67e38df45741fd0568d2ced402cfbf..2e618aeb258ffc6015dabeb2c19ec920d3341715 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-07-07  Eli Zaretskii  <eliz@gnu.org>
+
+       * term/w32-win.el (menu-bar-open): New function.
+       Bind <f10> to it.
+
 2007-07-07  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * log-view.el (log-view-mode-menu): New menu.

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 56dbf944dfeb1bf1bfba7e5101042b6a7e9c541c..fca3f9ce4d2089606df75127c17c52a7c3474f8c 100644 (file)
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -1041,8 +1041,18 @@ XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp")
 
 ;;; 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)