From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 15 Apr 2022 11:45:00 +0000 (+0200)
Subject: Tweak sorting indicator placement in vtable
X-Git-Tag: emacs-29.0.90~1931^2~546
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4bc36f09b9eb27a8c5e4c6fdc630d9476897c04b;p=emacs.git

Tweak sorting indicator placement in vtable

* lisp/emacs-lisp/vtable.el (vtable--insert-header-line): Tweak
sorting indicator position.
---

diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index ec7e4b4a6b9..d620f237266 100644
--- a/lisp/emacs-lisp/vtable.el
+++ b/lisp/emacs-lisp/vtable.el
@@ -645,7 +645,10 @@ This also updates the displayed table."
                 (+ (- (elt widths index)
                       (string-pixel-width displayed)
                       indicator-width
-                      (vtable-separator-width table))
+                      (vtable-separator-width table)
+                      ;; We want the indicator to not be quite flush
+                      ;; right.
+                      (/ (vtable--char-width table) 2.0))
                    (if last 0 spacer))))
            (if (or (not last)
                    (zerop indicator-width)
@@ -674,6 +677,10 @@ This also updates the displayed table."
                                   (list (- fill-width pre-fill))))))))
          (when (and divider (not last))
            (insert (propertize divider 'keymap dmap)))
+         (insert (propertize
+                  " " 'display
+                  (list 'space :width (list
+                                       (/ (vtable--char-width table) 2.0)))))
          (put-text-property start (point) 'vtable-column index)))
      (vtable-columns table))
     (insert "\n")