Revised patch attached.

On Thu, Jan 30, 2025 at 2:10 PM Juri Linkov <juri@linkov.net> wrote:

> > This variable may be overridden with a user-provided function to
> > customize help text for tabs displayed on the tab-bar. Help text
> > is normally shown in the echo area or via tooltips. See the
> > variable's docstring for arguments passed to a help-text function.
> >
> > My current implementation, which fully overrides 'tab-bar--format-tab',
> > uses a function that returns the buffer-list for current tabs, and wc-bl
> > for others.
> >
> > Others might find this useful if they depend on help text.
>
> Thanks.
>
> > +(defun tab-bar-format-tab-help-text-default (tab _i current-p)
>
> Is the argument 'current-p' really necessary?
> It's easy to check if the argument 'tab' is current
> with (eq (car tab) 'current-tab).
>
> The argument 'current-p' was required for group-related functions since
> it's harder to get the current group.  But for non-group it's simpler.
>
> > +  (concat (alist-get 'name tab)
> > +          (if current-p " (current tab)"
> > +            " (click to visit tab)")))
>
> This suffix would be nice only for demonstration purposes,
> but in real use this extra text only adds visual clutter.
>