[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [PATCH] `menu-bar-open' support for Windows console.,
Óscar Fuentes <=