master 574ae74caa: Fix dividers in vtable header lines

[Lars Ingebrigtsen]

branch: master
commit 574ae74caa83194a9b4ce3d1f4239d10aabba2eb
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix dividers in vtable header lines
    
    * lisp/emacs-lisp/vtable.el (vtable--insert-header-line): Put the
    divider in the correct place in the header line.
---
 doc/misc/vtable.texi      | 2 --
 lisp/emacs-lisp/vtable.el | 4 ++--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/doc/misc/vtable.texi b/doc/misc/vtable.texi
index 5a3957758c..5e96206528 100644
--- a/doc/misc/vtable.texi
+++ b/doc/misc/vtable.texi
@@ -143,8 +143,6 @@ version of @kbd{M-x list-buffers}:
 (make-vtable
  :columns '("Name" "Size" "File")
  :objects (buffer-list)
- :actions '("k" kill-buffer
-            "RET" display-buffer)
  :getter (lambda (object column vtable)
            (pcase (vtable-column vtable column)
              ("Name" (buffer-name object))
diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index 9b820c329a..de7b9b7cdf 100644
--- a/lisp/emacs-lisp/vtable.el
+++ b/lisp/emacs-lisp/vtable.el
@@ -590,12 +590,12 @@ This also updates the displayed table."
                       name (- (elt widths index) indicator-width))
                    name)
                  indicator))
-          (or (vtable-divider table) "")
           (propertize " " 'display
                       (list 'space :width
                             (list (+ (- (elt widths index)
                                         (string-pixel-width displayed))
-                                     (if last 0 spacer))))))
+                                     (if last 0 spacer)))))
+          (or (vtable-divider table) ""))
          (put-text-property start (point) 'vtable-column index)))
      (vtable-columns table))
     (insert "\n")