From: Juri Linkov <juri@linkov.net>
Date: Mon, 6 May 2024 17:10:43 +0000 (+0300)
Subject: * lisp/tab-bar.el (tab-bar-mouse-1): Avoid infinite recursion (bug#70086).
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1620
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=13d8b0eb63c568196cf692cde6a9153a00696a57;p=emacs.git

* lisp/tab-bar.el (tab-bar-mouse-1): Avoid infinite recursion (bug#70086).
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 17698225682..dac57ce2070 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -352,6 +352,7 @@ regardless of where you click on it.  Also add a new tab."
          (tab-number (tab-bar--key-to-number (nth 0 item))))
     (cond
      ((and (memq (car item) '(add-tab history-back history-forward global))
+           (not (eq (nth 1 item) 'tab-bar-mouse-1))
            (functionp (nth 1 item)))
       (call-interactively (nth 1 item)))
      ((and (nth 2 item) (not (eq tab-number t)))