diff options
| author | Jan Djärv | 2006-09-15 17:02:55 +0000 |
|---|---|---|
| committer | Jan Djärv | 2006-09-15 17:02:55 +0000 |
| commit | 0fba87a865caa4c7b08c1bc1fd07227fd4737ca0 (patch) | |
| tree | b2c49ef3ea67b9b4ff7d2648e086b030501a0b3b /lisp/term | |
| parent | efb8d76b13bbf9a259dab3ea6cca1a73633d1bfe (diff) | |
| download | emacs-0fba87a865caa4c7b08c1bc1fd07227fd4737ca0.tar.gz emacs-0fba87a865caa4c7b08c1bc1fd07227fd4737ca0.zip | |
* 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.") | |||
| 2522 | (define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event) | 2522 | (define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event) |
| 2523 | 2523 | ||
| 2524 | ;; Let F10 do menu bar navigation. | 2524 | ;; Let F10 do menu bar navigation. |
| 2525 | (defun x-menu-bar-open (&optional frame) | ||
| 2526 | "Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'." | ||
| 2527 | (interactive "i") | ||
| 2528 | (if menu-bar-mode (menu-bar-open frame) | ||
| 2529 | (tmm-menubar))) | ||
| 2530 | |||
| 2525 | (and (fboundp 'menu-bar-open) | 2531 | (and (fboundp 'menu-bar-open) |
| 2526 | (global-set-key [f10] 'menu-bar-open)) | 2532 | (global-set-key [f10] 'x-menu-bar-open)) |
| 2527 | 2533 | ||
| 2528 | ;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78 | 2534 | ;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78 |
| 2529 | ;;; x-win.el ends here | 2535 | ;;; x-win.el ends here |