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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e64d501c5b8c14a606d1e49e72b8ffb1b139268a..a1a59c99fdd9bc18f45eecb2ef5d489ca9aaad41 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-09-15  Jan Dj\e,Ad\e(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 0fc7638213025c83fa2519d1691331ec046191f6..8123d509f1c1e6da4a491e1403113c6e499f7b93 100644 (file)
--- 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