mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Backport: Call tab-bar-tab-post-open-functions during tabs initialization

Browse Source 
* lisp/tab-bar.el (tab-bar-tabs): Run the hook
'tab-bar-tab-post-open-functions' after creating the first tab
in the selected frame's tab-bar list of tabs (bug#74087).
Suggested by Ship Mints <shipmints@gmail.com>.

(cherry picked from commit 2c062dfdf5)
This commit is contained in:
Juri Linkov 2024-10-30 20:32:28 +02:00
parent 98796f95fa
commit 7a3c10dcb5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/tab-bar.el
View File

@ -803,7 +803,9 @@ Return its existing value or a new value."
(funcall tab-bar-tab-name-function))))
;; Create default tabs
(setq tabs (list (tab-bar--current-tab-make)))
(tab-bar-tabs-set tabs frame))
(tab-bar-tabs-set tabs frame)
(run-hook-with-args 'tab-bar-tab-post-open-functions
(car tabs)))
tabs))
(defun tab-bar-tabs-set (tabs &optional frame)