Mercurial > emacs

comparison lisp/term/w32-win.el @ 83644:0ece58f6e0aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 803-813) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 51-58) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 233-236) - Merge from emacs--devo--0 - Update from CVS Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-25
author Miles Bader <miles@gnu.org>
date Sun, 15 Jul 2007 02:05:20 +0000
parents 1436f0e41f94 1b1bd44b4a3c
children 65663fcd2caa
comparison
equal deleted inserted replaced
83643:70b38dec13a1 83644:0ece58f6e0aa
1034 defined-colors)) 1034 defined-colors))
1035 1035
1036 1036
1037 ;;;; Function keys 1037 ;;;; Function keys
1038 1038
1039 ;;; make f10 activate the real menubar rather than the mini-buffer menu
1040 ;;; navigation feature.
1041 (defun menu-bar-open (&optional frame)
1042 "Start key navigation of the menu bar in FRAME.
1043
1044 This initially activates the first menu-bar item, and you can then navigate
1045 with the arrow keys, select a menu entry with the Return key or cancel with
1046 the Escape key. If FRAME has no menu bar, this function does nothing.
1047
1048 If FRAME is nil or not given, use the selected frame."
1049 (interactive "i")
1050 (w32-send-sys-command ?\xf100 frame))
1051
1039 (defun x-setup-function-keys (frame) 1052 (defun x-setup-function-keys (frame)
1040 "Setup Function Keys for w32." 1053 "Setup Function Keys for w32."
1041 ;; make f10 activate the real menubar rather than the mini-buffer menu
1042 ;; navigation feature.
1043 (with-selected-frame frame 1054 (with-selected-frame frame
1044 (define-key local-function-key-map [f10] 1055 (define-key local-function-key-map [f10] 'menu-bar-open)
1045 (lambda ()
1046 (interactive) (w32-send-sys-command ?\xf100)))
1047 1056
1048 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame 1057 (substitute-key-definition 'suspend-emacs 'iconify-or-deiconify-frame
1049 local-function-key-map global-map) 1058 local-function-key-map global-map)
1050 1059
1051 (define-key local-function-key-map [S-tab] [backtab])) 1060 (define-key local-function-key-map [S-tab] [backtab]))