From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 13 Apr 2022 23:56:15 +0000 (+0200)
Subject: Fix dividers in vtable header lines
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~2370^2~589
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=574ae74caa83194a9b4ce3d1f4239d10aabba2eb;p=emacs.git

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 5a3957758c9..5e96206528f 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 9b820c329a0..de7b9b7cdf5 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")