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 |