Mercurial > emacs
changeset 72899:0f049b50713b
* term/x-win.el (x-menu-bar-open): New function for F10.
| author | Jan Djärv <jan.h.d@swipnet.se> |
|---|---|
| date | Fri, 15 Sep 2006 17:02:55 +0000 |
| parents | c467c4e41e5b |
| children | 8c2bc0d62aca |
| files | lisp/ChangeLog lisp/term/x-win.el |
| diffstat | 2 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Sep 15 16:39:53 2006 +0000 +++ b/lisp/ChangeLog Fri Sep 15 17:02:55 2006 +0000 @@ -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):
--- a/lisp/term/x-win.el Fri Sep 15 16:39:53 2006 +0000 +++ b/lisp/term/x-win.el Fri Sep 15 17:02:55 2006 +0000 @@ -2522,8 +2522,14 @@ (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