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

* lisp/tab-bar.el: Fix the close button with auto-width (bug#66678).

Browse source 
(tab-bar-auto-width): Take into account the length of tab-bar-close-button
more than one character: " x".
Don't merge to master.
This commit is contained in:
Petteri Hintsanen 2023-10-22 20:39:16 +03:00 • committed by Juri Linkov
parent 5f60913208
commit 5d1e6f759f
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/tab-bar.el
View file

@ -1091,7 +1091,9 @@ tab bar might wrap to the second line when it shouldn't.")
((< prev-width width)
(let* ((space (apply 'propertize " "
(text-properties-at 0 name)))
(ins-pos (- len (if close-p 1 0)))
(ins-pos (- len (if close-p
(length tab-bar-close-button)
0)))
(prev-name name))
(while continue
(setf (substring name ins-pos ins-pos) space)