diff options
| -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." | |||
| 651 | (if (functionp tab-line-new-tab-choice) | 651 | (if (functionp tab-line-new-tab-choice) |
| 652 | (funcall tab-line-new-tab-choice) | 652 | (funcall tab-line-new-tab-choice) |
| 653 | (let ((tab-line-tabs-buffer-groups mouse-buffer-menu-mode-groups)) | 653 | (let ((tab-line-tabs-buffer-groups mouse-buffer-menu-mode-groups)) |
| 654 | (if (and (listp mouse-event) window-system) ; (display-popup-menus-p) | 654 | (if (and (listp mouse-event) |
| 655 | (display-popup-menus-p) | ||
| 656 | (not tty-menu-open-use-tmm)) | ||
| 655 | (mouse-buffer-menu mouse-event) ; like (buffer-menu-open) | 657 | (mouse-buffer-menu mouse-event) ; like (buffer-menu-open) |
| 656 | ;; tty menu doesn't support mouse clicks, so use tmm | 658 | ;; tty menu doesn't support mouse clicks, so use tmm |
| 657 | (tmm-prompt (mouse-buffer-menu-keymap)))))) | 659 | (tmm-prompt (mouse-buffer-menu-keymap)))))) |