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 | |
| parent | efb8d76b13bbf9a259dab3ea6cca1a73633d1bfe (diff) | |
| download | emacs-0fba87a865caa4c7b08c1bc1fd07227fd4737ca0.tar.gz | |
* term/x-win.el (x-menu-bar-open): New function for F10.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/term/x-win.el | 8 |
2 files changed, 11 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e64d501c5b8..a1a59c99fdd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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): 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 |