Mercurial > emacs
changeset 81735:c7c25a292d1a
(menu-bar-open): New function. Bind <f10> to it.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 07 Jul 2007 11:17:33 +0000 |
| parents | e75a9a5b8536 |
| children | d50de52ebdfb |
| files | lisp/term/w32-win.el |
| diffstat | 1 files changed, 12 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/w32-win.el Sat Jul 07 11:17:03 2007 +0000 +++ b/lisp/term/w32-win.el Sat Jul 07 11:17:33 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)