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

* term/x-win.el (x-menu-bar-open): New function for F10.

Browse Source
This commit is contained in:
Jan Djärv 2006-09-15 17:02:55 +00:00
parent efb8d76b13
commit 0fba87a865
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2006-09-15 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* term/x-win.el (x-menu-bar-open): New function for F10.
2006-09-15 Chong Yidong <cyd@stupidchicken.com>
* progmodes/compile.el (compilation-error-regexp-alist-alist):

8
lisp/term/x-win.el
View File

@ -2522,8 +2522,14 @@ order until succeed.")
(define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
;; Let F10 do menu bar navigation.
(defun x-menu-bar-open (&optional frame)
"Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'."
(interactive "i")
(if menu-bar-mode (menu-bar-open frame)
(tmm-menubar)))
(and (fboundp 'menu-bar-open)
(global-set-key [f10] 'menu-bar-open))
(global-set-key [f10] 'x-menu-bar-open))
;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
;;; x-win.el ends here