[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 13d8b0eb63c: * lisp/tab-bar.el (tab-bar-mouse-1): Avoid infinite
From: |
Juri Linkov |
Subject: |
master 13d8b0eb63c: * lisp/tab-bar.el (tab-bar-mouse-1): Avoid infinite recursion (bug#70086). |
Date: |
Mon, 6 May 2024 13:11:05 -0400 (EDT) |
branch: master
commit 13d8b0eb63c568196cf692cde6a9153a00696a57
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>
* lisp/tab-bar.el (tab-bar-mouse-1): Avoid infinite recursion (bug#70086).
---
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 13d8b0eb63c: * lisp/tab-bar.el (tab-bar-mouse-1): Avoid infinite recursion (bug#70086).,
Juri Linkov <=