diff options
| author | Jared Finder <jared@finder.org> | 2020-12-07 22:44:32 -0800 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-01-30 11:31:47 +0200 |
| commit | 0e2e1caa0bc87c5972ca1bbe6893a56d4db1df0a (patch) | |
| tree | f9a0bf433573eac846584e1b19a362e049ed2131 /lisp/tab-line.el | |
| parent | bb652f68fd4e996d58f731a0dba1be18fd4e03d7 (diff) | |
| download | emacs-0e2e1caa0bc87c5972ca1bbe6893a56d4db1df0a.tar.gz emacs-0e2e1caa0bc87c5972ca1bbe6893a56d4db1df0a.tar.bz2 emacs-0e2e1caa0bc87c5972ca1bbe6893a56d4db1df0a.zip | |
* lisp/tab-line.el (tab-line-new-tab): Use tty menus when supported.
Diffstat (limited to 'lisp/tab-line.el')
| -rw-r--r-- | lisp/tab-line.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/tab-line.el b/lisp/tab-line.el index 2726947a4c2..9209f2d46ec 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -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)))))) |