mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Eli Zaretskii 2007-07-07 11:25:15 +00:00
parent e4b9bdc58f
commit ad1c463f79
2 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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.

14
lisp/term/w32-win.el
View File

@ -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)