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.

diff --git a/doc/misc/vtable.texi b/doc/misc/vtable.texi
index 5a3957758c9308397a50ff0220b2b7d92b9a0e63..5e96206528f788a652ed4a422badbbaaa8063947 100644 (file)
--- 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 9b820c329a0294dbadb6cca6031e4ee35d6ee0c3..de7b9b7cdf5e1f22e9e2c74323438dad8a772df2 100644 (file)
--- 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")