diff options
| author | Juri Linkov <juri@linkov.net> | 2019-09-08 23:18:45 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-09-08 23:18:45 +0300 |
| commit | 89ef791c07637953f514c0ead2f5935ac41ebc33 (patch) | |
| tree | d59dc2ba8a727abf19fe597fbc2c6d06416df58e /lisp/tab-line.el | |
| parent | a7289c0488fd55260d29685b6c1b79b8a3cd8f92 (diff) | |
| download | emacs-89ef791c07637953f514c0ead2f5935ac41ebc33.tar.gz emacs-89ef791c07637953f514c0ead2f5935ac41ebc33.tar.bz2 emacs-89ef791c07637953f514c0ead2f5935ac41ebc33.zip | |
Small fixes for tty and w32.
* lisp/menu-bar.el (showhide-tab-bar): Visible on tty too.
* lisp/tab-bar.el (tab-bar-mode): Add binding [(control shift tab)] for w32.
* lisp/tab-line.el (tab-line-add-tab): Use tmm-prompt for buffer-menu on tty.
* src/w32term.c (w32_read_socket): Fix tool-bar clicks.
Diffstat (limited to 'lisp/tab-line.el')
| -rw-r--r-- | lisp/tab-line.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/tab-line.el b/lisp/tab-line.el index 2122a14be67..8ade53611f3 100644 --- a/lisp/tab-line.el +++ b/lisp/tab-line.el @@ -203,8 +203,10 @@ Reduce tab width proportionally to space taken by other tabs." (defun tab-line-add-tab (&optional e) (interactive "e") - ;; Maybe (buffer-menu-open) - (mouse-buffer-menu e)) + (if window-system + (mouse-buffer-menu e) ; like (buffer-menu-open) + ;; tty menu doesn't support mouse clicks, so use tmm + (tmm-prompt (mouse-buffer-menu-keymap)))) (defun tab-line-select-tab (&optional e) "Switch to the selected tab. |