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

* lisp/tab-bar.el: Fix the recent removal of substring as a gv-place.

Browse source 
(tab-bar-auto-width): Copy more logic from 'cl--set-substring' (bug#60297).
This commit is contained in:
Juri Linkov 2022-12-24 20:04:56 +02:00
parent 1748361c68
commit 4dc5bee98d
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/tab-bar.el
View file

@ -1116,7 +1116,8 @@ tab bar might wrap to the second line when it shouldn't.")
(del-pos2 (if close-p -1 nil)))
(while continue
(setq name (concat (substring name 0 del-pos1)
(substring name del-pos2)))
(and del-pos2
(substring name del-pos2))))
(setq curr-width (string-pixel-width name))
(if (and (> curr-width width)
(< curr-width prev-width))