[PATCH] `menu-bar-open' support for Windows console.

[Óscar Fuentes]

2008-06-10  Oscar Fuentes  <address@hidden>

        * term/w32-win.el (menu-bar-open): Call tmm-menubar when on a
        console or when menu-bar-mode is nil.


Index: term/w32-win.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term/w32-win.el,v
retrieving revision 1.99
diff -u -r1.99 w32-win.el
--- term/w32-win.el     10 May 2008 17:34:32 -0000      1.99
+++ term/w32-win.el     10 Jun 2008 01:25:06 -0000
@@ -383,8 +383,6 @@
 
 ;;;; Function keys
 
- ;;; make f10 activate the real menubar rather than the mini-buffer menu
- ;;; navigation feature.
  (defun menu-bar-open (&optional frame)
    "Start key navigation of the menu bar in FRAME.
  
@@ -392,9 +390,13 @@
  with the arrow keys, select a menu entry with the Return key or cancel with
  the Escape key.  If FRAME has no menu bar, this function does nothing.
  
- If FRAME is nil or not given, use the selected frame."
+ If FRAME is nil or not given, use the selected frame.
+ 
+ If `window-system' or `menu-bar-mode' are nil, call `tmm-menubar'."
    (interactive "i")
-   (w32-send-sys-command ?\xf100 frame))
+   (if (and window-system menu-bar-mode)
+       (w32-send-sys-command ?\xf100 frame)
+     (tmm-menubar)))
 
 
 ;; W32 systems have different fonts than commonly found on X, so