diff options
| author | Jared Finder <jared@finder.org> | 2020-10-06 20:04:12 -0700 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2020-10-24 13:22:55 +0300 |
| commit | 92d37029a755e7f610c3bc10c816763c5d853d2f (patch) | |
| tree | 9f565ad72ec2b43d26036bebc4a92a9b889ef00e /lisp/menu-bar.el | |
| parent | 0695c9e8599b5036a80361571e7cb0ea9fdead99 (diff) | |
| download | emacs-92d37029a755e7f610c3bc10c816763c5d853d2f.tar.gz emacs-92d37029a755e7f610c3bc10c816763c5d853d2f.tar.bz2 emacs-92d37029a755e7f610c3bc10c816763c5d853d2f.zip | |
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.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index e78c1a6c707..e42602364d2 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -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." |