From: Petteri Hintsanen <petterih@iki.fi>
Date: Sun, 22 Oct 2023 17:39:16 +0000 (+0300)
Subject: * lisp/tab-bar.el: Fix the close button with auto-width (bug#66678).
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d1e6f759f29f3404c5a8f48cca66a08400b9d67;p=emacs.git

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

(tab-bar-auto-width): Take into account the length of tab-bar-close-button
more than one character: " x".
Don't merge to master.
---

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 17fc4b346cb..7a493ddde0d 100644
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -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)