master 4bc36f09b9: Tweak sorting indicator placement in vtable

[Lars Ingebrigtsen]

branch: master
commit 4bc36f09b9eb27a8c5e4c6fdc630d9476897c04b
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Tweak sorting indicator placement in vtable
    
    * lisp/emacs-lisp/vtable.el (vtable--insert-header-line): Tweak
    sorting indicator position.
---
 lisp/emacs-lisp/vtable.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index ec7e4b4a6b..d620f23726 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")