diff options
| author | Juri Linkov <juri@linkov.net> | 2024-05-06 19:43:50 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2024-05-06 19:43:50 +0300 |
| commit | 9ecd65a6607aaaaf4ef74f52e252ab1c64dcbdff (patch) | |
| tree | 25cb59bcdb0393168ab9d559c7b8a773c7cc16dc | |
| parent | 5522cc7879a17cab28383c4b1cce611c78c28995 (diff) | |
| download | emacs-9ecd65a6607aaaaf4ef74f52e252ab1c64dcbdff.tar.gz | |
* lisp/tab-bar.el: Support mouse clicks for multi-item 'global-mode-string'.
(tab-bar-format-global): Split elements of 'global-mode-string'
to separate items of the tab bar, so events for each item are
handled separately (bug#70086).
| -rw-r--r-- | lisp/tab-bar.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el index 2e3d9a6b4ac..26023f24389 100644 --- a/lisp/tab-bar.el +++ b/lisp/tab-bar.el @@ -1119,7 +1119,9 @@ When `tab-bar-format-global' is added to `tab-bar-format' then modes that display information on the mode line using `global-mode-string' will display the same text on the tab bar instead." - `((global menu-item ,(format-mode-line global-mode-string) ignore))) + (mapcar (lambda (string) + `(global menu-item ,(format-mode-line string) ignore)) + global-mode-string)) (defun tab-bar-format-list (format-list) (let ((i 0)) |