From: Juri Linkov <juri@linkov.net>
Date: Wed, 30 Oct 2024 18:32:28 +0000 (+0200)
Subject: Backport: Call tab-bar-tab-post-open-functions during tabs initialization
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~304
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=7a3c10dcb56f7287158d155edba04bf80316fbe6;p=emacs.git

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

* 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 2c062dfdf50970766db179ccbad7ce71c541cd72)
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index ea36a924c78..e8c6b7f3bcc 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -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)