procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/tab-bar.el (tab-bar-auto-width): Don't check if width changes.

Browse source 
Remove the condition '(< curr-width prev-width)' that was intended to check
if the width stopped to change.  But actually it's not only unneeded,
but causes a bug: when the name contains a combining character, then
the width doesn't change, and the name truncation stops too early.
This commit is contained in:
Juri Linkov 2023-09-19 20:51:07 +03:00
parent 3c14cab797
commit 74dffcdf4f
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/tab-bar.el
View file

@ -1234,8 +1234,7 @@ tab bar might wrap to the second line when it shouldn't.")
space
(substring name ins-pos)))
(setq curr-width (string-pixel-width name))
(if (and (< curr-width width)
(> curr-width prev-width))
(if (< curr-width width)
(setq prev-width curr-width
prev-name name)
;; Set back a shorter name
@ -1249,8 +1248,7 @@ tab bar might wrap to the second line when it shouldn't.")
(and del-pos2
(substring name del-pos2))))
(setq curr-width (string-pixel-width name))
(if (and (> curr-width width)
(< curr-width prev-width))
(if (> curr-width width)
(setq prev-width curr-width)
(setq continue nil)))
(let* ((len (length name))