From b777800d60c02745b20ea31ce4b10cf010168889 Mon Sep 17 00:00:00 2001 From: Robert Cochran Date: Wed, 11 Dec 2019 10:29:00 -0800 Subject: [PATCH] * lisp/tab-bar.el (tab-bar-close-other-tabs): Use tab close customs --- lisp/tab-bar.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index ba4bc0afcd..59cba2c877 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -896,11 +896,18 @@ tab-bar-close-other-tabs (current-index (tab-bar--current-tab-index tabs))) (when current-index (dotimes (index (length tabs)) - (unless (eq index current-index) + (unless (or (eq index current-index) + (run-hook-with-args-until-success + 'tab-bar-tab-prevent-close-functions + (nth index tabs) + ; last-tab-p logically can't ever be true if we + ; make it this far + nil)) (push `((frame . ,(selected-frame)) (index . ,index) (tab . ,(nth index tabs))) - tab-bar-closed-tabs))) + tab-bar-closed-tabs) + (run-hook-with-args 'tab-bar-tab-pre-close-functions (nth index tabs) nil))) (set-frame-parameter nil 'tabs (list (nth current-index tabs))) (when (and tab-bar-mode -- 2.23.0