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:
Jared Finder 2020-10-06 20:04:12 -07:00 committed by Eli Zaretskii
parent 0695c9e859
commit 92d37029a7
3 changed files with 12 additions and 1 deletions

View file

@ -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.

View file

@ -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."

View file

@ -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)