mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

* src/xdisp.c (tab-bar-truncate): New variable (bug#78953).

Browse source 
(tab_bar_height): Use it.
This commit is contained in:
Juri Linkov 2025-07-14 09:43:18 +03:00
parent a8b65860a5
commit 817f7829f9
2 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
etc/NEWS
View file

@ -397,6 +397,11 @@ 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.
---
*** New variable 'tab-bar-truncate'.
When non-nil, it truncates the tab bar, and therefore prevents
wrapping and resizing the tab bar to more than one line.
---
*** New command 'tab-line-move-tab-forward' ('C-x M-<right>').
Together with the new command 'tab-line-move-tab-backward'

14
src/xdisp.c
View file

@ -14739,11 +14739,19 @@ tab_bar_height (struct frame *f, int *n_rows, bool pixelwise)
it.paragraph_embedding = L2R;
clear_glyph_row (temp_row);
while (!ITERATOR_AT_END_P (&it))
if (tab_bar_truncate)
{
it.glyph_row = temp_row;
display_tab_bar_line (&it, -1);
}
else
{
while (!ITERATOR_AT_END_P (&it))
{
it.glyph_row = temp_row;
display_tab_bar_line (&it, -1);
}
}
clear_glyph_row (temp_row);
/* f->n_tab_bar_rows == 0 means "unknown"; -1 means no tab-bar. */
@ -38209,6 +38217,10 @@ window, nil if it's okay to leave the cursor partially-visible. */);
DEFSYM (Qmake_window_start_visible, "make-window-start-visible");
Fmake_variable_buffer_local (Qmake_window_start_visible);
DEFVAR_BOOL ("tab-bar-truncate", tab_bar_truncate,
doc: /* Non-nil means truncate tab-bar and show only one line. */);
tab_bar_truncate = false;
DEFSYM (Qclose_tab, "close-tab");
DEFVAR_LISP ("tab-bar-border", Vtab_bar_border,
doc: /* Border below tab-bar in pixels.