From: Jared Finder <jared@finder.org>
Date: Tue, 8 Dec 2020 06:44:32 +0000 (-0800)
Subject: * lisp/tab-line.el (tab-line-new-tab): Use tty menus when supported.
X-Git-Tag: emacs-28.0.90~4028
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0e2e1caa0bc87c5972ca1bbe6893a56d4db1df0a;p=emacs.git

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

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