From: Stefan Kangas <stefan@marxist.se>
Date: Fri, 24 Sep 2021 22:33:21 +0000 (+0200)
Subject: Fix alignment on font size change in tabulated-list-mode
X-Git-Tag: emacs-28.0.90~675
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2767c89db729a6106146d0aeff76678c64d4fc53;p=emacs.git

Fix alignment on font size change in tabulated-list-mode

* lisp/emacs-lisp/tabulated-list.el (tabulated-list-print-col): Fix
bug where the columns didn't align correctly when using
'text-scale-mode' to decrease the font size.  (Bug#48639)
---

diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index f148bc1768c..5210b2be5e0 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -581,7 +581,8 @@ Return the column number after insertion."
       (when not-last-col
         (when (> pad-right 0) (insert (make-string pad-right ?\s)))
         (insert (propertize
-                 (make-string (- width (min width label-width)) ?\s)
+                 ;; We need at least one space to align correctly.
+                 (make-string (- width (min 1 width label-width)) ?\s)
                  'display `(space :align-to ,next-x))))
       (put-text-property opoint (point) 'tabulated-list-column-name name)
       next-x)))