mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Robert Cochran 2019-12-11 10:29:00 -08:00 committed by Juri Linkov
parent c46a4931b1
commit 35388c5679
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/tab-bar.el
View File

@ -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