[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Óscar Fuentes
Subject: [PATCH] `menu-bar-open' support for Windows console.
Date: Tue, 10 Jun 2008 03:53:16 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.0.60 (windows-nt)

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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]