mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Juri Linkov 2024-05-06 20:10:43 +03:00
parent 4460317225
commit 13d8b0eb63
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/tab-bar.el
View File

@ -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)))