mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix F10 behaviour. (Reported by Bernard Adrian.)

Browse source 
* src/xmenu.c (Fx_menu_bar_open) [USE_X_TOOLKIT, USE_GTK]: 
  Rename from Fmenu_bar_open.
  (syms_of_xmenu): Update defsubr.

* lisp/menu-bar.el (menu-bar-open): New function.
  Bind it to f10.

* lisp/term/x-win.el: Don't bind f10.

* lisp/tmm.el: Remove autoload binding for f10.

* lisp/ldefs-boot.el: Regenerate.

git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-577
This commit is contained in:
Karoly Lorentey 2006-07-29 20:57:26 +00:00
parent e6aee454e6
commit 14ab3a40ec
6 changed files with 124 additions and 100 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/menu-bar.el
View file

@ -1768,6 +1768,22 @@ See `menu-bar-mode' for more information."
(menu-bar-mode (if (> (frame-parameter nil 'menu-bar-lines) 0) 0 1))
(menu-bar-mode arg)))
(defun menu-bar-open (&optional frame)
"Start key navigation of the menu bar in FRAME.
This function decides which method to use to access the menu
depending on FRAME's terminal device. On X displays, it calls
`x-menu-bar-open'; otherwise it calls `tmm-menubar'.
If FRAME is nil or not given, use the selected frame."
(interactive)
(if (eq window-system 'x)
(x-menu-bar-open frame)
(with-selected-frame (or frame (selected-frame))
(tmm-menubar))))
(global-set-key [f10] 'menu-bar-open)
(provide 'menu-bar)
;;; arch-tag: 6e6a3c22-4ec4-4d3d-8190-583f8ef94ced