From 468c8719945f3dc92a24d2ecc32f3f24f2f49491 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 16 Dec 2019 01:08:45 +0200 Subject: [PATCH] * lisp/tab-bar.el (tab-bar-handle-mouse): Handle close button. --- lisp/tab-bar.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 180db4d3e0c..92e11dec394 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -174,11 +174,14 @@ on a console which has no window system but does have a mouse." (when x-position (unless (catch 'done (map-keymap - (lambda (_key binding) + (lambda (key binding) (when (eq (car-safe binding) 'menu-item) (when (> (+ column (length (nth 1 binding))) x-position) - ;; TODO: handle close - (unless (get-text-property (- x-position column) 'close-tab (nth 1 binding)) + (if (get-text-property (- x-position column) 'close-tab (nth 1 binding)) + (let* ((close-key (vector (intern (format "C-%s" key)))) + (close-def (lookup-key keymap close-key))) + (when close-def + (call-interactively close-def))) (call-interactively (nth 2 binding))) (throw 'done t)) (setq column (+ column (length (nth 1 binding)))))) -- 2.39.2