diff options
| author | Jan Djärv <jan.h.d@swipnet.se> | 2006-09-15 17:02:55 +0000 |
|---|---|---|
| committer | Jan Djärv <jan.h.d@swipnet.se> | 2006-09-15 17:02:55 +0000 |
| commit | 0fba87a865caa4c7b08c1bc1fd07227fd4737ca0 (patch) | |
| tree | b2c49ef3ea67b9b4ff7d2648e086b030501a0b3b /lisp/term | |
| parent | efb8d76b13bbf9a259dab3ea6cca1a73633d1bfe (diff) | |
| download | emacs-0fba87a865caa4c7b08c1bc1fd07227fd4737ca0.tar.gz | |
* term/x-win.el (x-menu-bar-open): New function for F10.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/x-win.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 0fc76382130..8123d509f1c 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -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 |