* term/x-win.el (x-menu-bar-open): New function for F10.

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