From 5d1e6f759f29f3404c5a8f48cca66a08400b9d67 Mon Sep 17 00:00:00 2001 From: Petteri Hintsanen Date: Sun, 22 Oct 2023 20:39:16 +0300 Subject: [PATCH] * 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. --- lisp/tab-bar.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.2