From: Juri Linkov <juri@linkov.net>
Date: Sun, 20 Mar 2022 18:59:04 +0000 (+0200)
Subject: * lisp/tab-bar.el (tab-bar-new-tab-to): Don't funcall const values.
X-Git-Tag: emacs-29.0.90~1931^2~1026
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a31be116aeee43b7a2e14d53db226933d4e8a012;p=emacs.git

* lisp/tab-bar.el (tab-bar-new-tab-to): Don't funcall const values.

Filter out the values 'clone' and 'window' of 'tab-bar-new-tab-choice'
from function call.
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 245a55a671f..cf1cca4af3f 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -1384,7 +1384,8 @@ After the tab is created, the hooks in
             (split-window) (delete-window))))
 
       (let ((buffer
-             (if (functionp tab-bar-new-tab-choice)
+             (if (and (functionp tab-bar-new-tab-choice)
+                      (not (memq tab-bar-new-tab-choice '(clone window))))
                  (funcall tab-bar-new-tab-choice)
                (if (stringp tab-bar-new-tab-choice)
                    (or (get-buffer tab-bar-new-tab-choice)