From: Robert Cochran <robert-git@cochranmail.com>
Date: Wed, 11 Dec 2019 18:29:00 +0000 (-0800)
Subject: * lisp/tab-bar.el (tab-bar-close-other-tabs): Use tab close customs
X-Git-Tag: emacs-27.0.90~346
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=35388c56795822d7811878dcf1e105a369ffb044;p=emacs.git

* lisp/tab-bar.el (tab-bar-close-other-tabs): Use tab close customs
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 7e8f56de2a7..e045a778656 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -906,11 +906,18 @@ for the last tab on a frame is determined by
          (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