Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/tab-line.el (tab-line-new-tab): Use tty menus when supported.

Browse source
This commit is contained in:
Jared Finder 2020-12-07 22:44:32 -08:00 committed by Eli Zaretskii
parent bb652f68fd
commit 0e2e1caa0b
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/tab-line.el
View file

@ -651,7 +651,9 @@ corresponding to the switched buffer."
(if (functionp tab-line-new-tab-choice)
(funcall tab-line-new-tab-choice)
(let ((tab-line-tabs-buffer-groups mouse-buffer-menu-mode-groups))
(if (and (listp mouse-event) window-system) ; (display-popup-menus-p)
(if (and (listp mouse-event)
(display-popup-menus-p)
(not tty-menu-open-use-tmm))
(mouse-buffer-menu mouse-event) ; like (buffer-menu-open)
;; tty menu doesn't support mouse clicks, so use tmm
(tmm-prompt (mouse-buffer-menu-keymap))))))