# HG changeset patch
# User Jan Dj¸«£rv <jan.h.d@swipnet.se>
# Date 1158339775 0
# Node ID 0f049b50713b16cbae7488b5bedb909549448d0a
# Parent  c467c4e41e5bfdb61d3dd41fbf0a0fa5b0a0fb88
* term/x-win.el (x-menu-bar-open): New function for F10.

diff -r c467c4e41e5b -r 0f049b50713b lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Sep 15 16:39:53 2006 +0000
+++ b/lisp/ChangeLog	Fri Sep 15 17:02:55 2006 +0000
@@ -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 -r c467c4e41e5b -r 0f049b50713b lisp/term/x-win.el
--- a/lisp/term/x-win.el	Fri Sep 15 16:39:53 2006 +0000
+++ b/lisp/term/x-win.el	Fri Sep 15 17:02:55 2006 +0000
@@ -2522,8 +2522,14 @@
 (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