mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-21 18:23:59 +00:00
Enable TTY menus with xterm-mouse-mode
* lisp/tmm.el: No need to bind 'tmm-menubar-mouse' to mouse clicks on the menu bar. * lisp/menu-bar.el (global-map): Bind 'menu-bar-open-mouse' to mouse click on menu bar. This is needed in xt-mouse. * etc/NEWS: Announce TTY menu support in xterm-mouse-mode.
This commit is contained in:
parent
0695c9e859
commit
92d37029a7
10
etc/NEWS
10
etc/NEWS
@ -1325,6 +1325,16 @@ to 'tab-bar-new-tab-choice' for new tabs to show the bookmark list.
|
||||
'gomoku-move-sw' and 'gomoku-move-ne' now work correctly, and
|
||||
horizontal movements now stop at the edge of the board.
|
||||
|
||||
** xterm-mouse mode
|
||||
|
||||
---
|
||||
*** TTY menu navigation is now supported in 'xterm-mouse-mode'.
|
||||
TTY menus support mouse navigation and selection when xterm-mouse-mode
|
||||
is active. When run on a terminal, clicking on the menu bar with the
|
||||
mouse now pops up a TTY menu by default instead of running the command
|
||||
'tmm-menubar'. To restore the old behavior, set the variable
|
||||
'tty-menu-open-use-tmm' to non-nil.
|
||||
|
||||
** xwidget-webkit mode
|
||||
|
||||
*** New xwidget commands.
|
||||
|
@ -2088,6 +2088,8 @@ key, a click, or a menu-item"))
|
||||
(bindings--define-key global-map [menu-bar help-menu]
|
||||
(cons (purecopy "Help") menu-bar-help-menu))
|
||||
|
||||
(define-key global-map [menu-bar mouse-1] 'menu-bar-open-mouse)
|
||||
|
||||
(defun menu-bar-menu-frame-live-and-visible-p ()
|
||||
"Return non-nil if the menu frame is alive and visible.
|
||||
The menu frame is the frame for which we are updating the menu."
|
||||
|
@ -43,7 +43,6 @@
|
||||
(defvar tmm-table-undef)
|
||||
|
||||
;;;###autoload (define-key global-map "\M-`" 'tmm-menubar)
|
||||
;;;###autoload (define-key global-map [menu-bar mouse-1] 'tmm-menubar-mouse)
|
||||
|
||||
;;;###autoload
|
||||
(defun tmm-menubar (&optional x-position)
|
||||
|
Loading…
Reference in New Issue
Block a user