Mercurial > emacs
comparison lisp/term/x-win.el @ 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 | ec8109b4dd1d |
| children | fdbf03ef04dc 2d56e13fd23d b5c13d1564a9 |
comparison
equal
deleted
inserted
replaced
| 72898:c467c4e41e5b | 72899:0f049b50713b |
|---|---|
| 2520 ;; Initiate drag and drop | 2520 ;; Initiate drag and drop |
| 2521 (add-hook 'after-make-frame-functions 'x-dnd-init-frame) | 2521 (add-hook 'after-make-frame-functions 'x-dnd-init-frame) |
| 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 |