Improve tab-bar event handling (bug#41343)

* lisp/tab-bar.el (tab-bar--key-to-number): Rename from tab--key-to-number.
(tab-bar--event-to-item): New function from tab-bar-handle-mouse.
(tab-bar-mouse-select-tab, tab-bar-mouse-close-tab)
(tab-bar-mouse-context-menu, tab-bar-mouse-move-tab):
Use tab-bar--event-to-item.

* src/menu.c (x_popup_menu_1): Handle Qtab_bar in the second list element.

* src/xdisp.c (tty_get_tab_bar_item): Change arg 'end' to bool 'close_p'.
(tty_get_tab_bar_item): Detect if the close button was clicked.
(tty_handle_tab_bar_click): Return a list with caption that has
text properties.

1 files changed, 6 insertions, 3 deletions

diff --git a/src/menu.c b/src/menu.c
index 3b1d7402571..990a74b92e3 100644
--- a/src/menu.c
+++ b/src/menu.c
@@ -1127,9 +1127,12 @@ x_popup_menu_1 (Lisp_Object position, Lisp_Object menu)
 
     /* Decode the first argument: find the window and the coordinates.  */
     if (EQ (position, Qt)
-        || (CONSP (position) && (EQ (XCAR (position), Qmenu_bar)
-                                 || EQ (XCAR (position), Qtab_bar)
-                                 || EQ (XCAR (position), Qtool_bar))))
+        || (CONSP (position)
+            && (EQ (XCAR (position), Qmenu_bar)
+                || EQ (XCAR (position), Qtab_bar)
+                || (CONSP (XCDR (position))
+                    && EQ (XCAR (XCDR (position)), Qtab_bar))
+                || EQ (XCAR (position), Qtool_bar))))
       {
         get_current_pos_p = 1;
       }