[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0e2e1ca: * lisp/tab-line.el (tab-line-new-tab): Use tty menus whe
From: |
Eli Zaretskii |
Subject: |
master 0e2e1ca: * lisp/tab-line.el (tab-line-new-tab): Use tty menus when supported. |
Date: |
Sat, 30 Jan 2021 04:35:55 -0500 (EST) |
branch: master
commit 0e2e1caa0bc87c5972ca1bbe6893a56d4db1df0a
Author: Jared Finder <jared@finder.org>
Commit: Eli Zaretskii <eliz@gnu.org>
* lisp/tab-line.el (tab-line-new-tab): Use tty menus when supported.
---
lisp/tab-line.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 2726947..9209f2d 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))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 0e2e1ca: * lisp/tab-line.el (tab-line-new-tab): Use tty menus when supported.,
Eli Zaretskii <=