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.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 112b567a0b22a40ba6f0d8bc19d8a445f8cb969c..4b5f4457df84e7b2135bd3252480111f8bb6dc9b 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -1245,7 +1245,6 @@ mail status in mode line"))
     (bindings--define-key menu [showhide-tab-bar]
       '(menu-item "Tab Bar" toggle-tab-bar-mode-from-frame
                   :help "Turn tab bar on/off"
-                  :visible (display-graphic-p)
                   :button
                   (:toggle . (menu-bar-positive-p
                               (frame-parameter (menu-bar-frame-for-menubar)

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index de4faa2a4d784d1259c09ba656cbdec14e835b92..57be4e09a8fbe9e995c4d2e34655208b4c46a5cc 100644 (file)
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -96,6 +96,7 @@
                                      default-frame-alist)))))
   (when tab-bar-mode
     (global-set-key [(control shift iso-lefttab)] 'tab-bar-switch-to-prev-tab)
+    (global-set-key [(control shift tab)]         'tab-bar-switch-to-prev-tab)
     (global-set-key [(control tab)]               'tab-bar-switch-to-next-tab)))
 
 (defun tab-bar-mouse (event)
@@ -334,7 +335,7 @@ If `rightmost', create as the last tab."
           (setcdr prev-tab (cons new-tab (cdr prev-tab))))))))
     (set-frame-parameter nil 'tabs tabs)
     (tab-bar-select-tab new-tab)
-    (unless (and (display-graphic-p) tab-bar-mode)
+    (unless tab-bar-mode
       (message "Added new tab with the current window configuration"))))
 
 \f
@@ -395,14 +396,14 @@ specified by `tab-bar-close-tab-select'."
   "Create a new named window configuration without having to click a tab."
   (interactive)
   (tab-bar-add-tab)
-  (unless (and (display-graphic-p) tab-bar-mode)
+  (unless tab-bar-mode
     (message "Added new tab with the current window configuration")))
 
 (defun delete-tab ()
   "Delete the current window configuration without clicking a close button."
   (interactive)
   (tab-bar-close-current-tab)
-  (unless (and (display-graphic-p) tab-bar-mode)
+  (unless tab-bar-mode
     (message "Deleted the current tab")))
 
 (defalias 'list-tabs 'tab-bar-list)

diff --git a/lisp/tab-line.el b/lisp/tab-line.el
index 2122a14be6784126528b065c540aa74f5a6c76cc..8ade53611f3f003682037703450e17eb81cb95c2 100644 (file)
--- a/lisp/tab-line.el
+++ b/lisp/tab-line.el
@@ -203,8 +203,10 @@ Reduce tab width proportionally to space taken by other tabs."
 \f
 (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.

diff --git a/src/w32term.c b/src/w32term.c
index dc516390d16bbe5e39e2a6ce60f35f7bc6616e3b..4d230a2293c7d934a734832b63136d8f957bee36 100644 (file)
--- a/src/w32term.c
+++ b/src/w32term.c
@@ -5097,7 +5097,7 @@ w32_read_socket (struct terminal *terminal,
                    int x = XFIXNAT (inev.x);
                    int y = XFIXNAT (inev.y);
 
-                    window = window_from_coordinates (f, x, y, 0, 1, 0);
+                    window = window_from_coordinates (f, x, y, 0, 1, 1);
 
                     if (EQ (window, f->tab_bar_window))
                       {
@@ -5122,7 +5122,7 @@ w32_read_socket (struct terminal *terminal,
                    int x = XFIXNAT (inev.x);
                    int y = XFIXNAT (inev.y);
 
-                    window = window_from_coordinates (f, x, y, 0, 1, 0);
+                    window = window_from_coordinates (f, x, y, 0, 1, 1);
 
                     if (EQ (window, f->tool_bar_window))
                       {