[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 35388c5 2/2: * lisp/tab-bar.el (tab-bar-close-other-tabs): Use ta
From: |
Juri Linkov |
Subject: |
master 35388c5 2/2: * lisp/tab-bar.el (tab-bar-close-other-tabs): Use tab close customs |
Date: |
Sun, 15 Dec 2019 17:56:24 -0500 (EST) |
branch: master
commit 35388c56795822d7811878dcf1e105a369ffb044
Author: Robert Cochran <address@hidden>
Commit: Juri Linkov <address@hidden>
* 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 7e8f56d..e045a77 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