From 1c2b313f5578df69c7ed15549726537eef2ae339 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Mon, 6 May 2024 20:10:43 +0300 Subject: [PATCH] * lisp/tab-bar.el (tab-bar-mouse-1): Avoid infinite recursion (bug#70086). (cherry picked from commit 13d8b0eb63c568196cf692cde6a9153a00696a57) --- lisp/tab-bar.el | 1 + 1 file changed, 1 insertion(+) 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))) -- 2.39.5