From 0fba87a865caa4c7b08c1bc1fd07227fd4737ca0 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20Dj=C3=A4rv?= Date: Fri, 15 Sep 2006 17:02:55 +0000 Subject: [PATCH] * term/x-win.el (x-menu-bar-open): New function for F10. --- lisp/ChangeLog | 4 ++++ lisp/term/x-win.el | 8 +++++++- 2 files changed, 11 insertions(+), 1 deletion(-) 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 + + * term/x-win.el (x-menu-bar-open): New function for F10. + 2006-09-15 Chong Yidong * 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 -- 2.39.2