From 574ae74caa83194a9b4ce3d1f4239d10aabba2eb Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 14 Apr 2022 01:56:15 +0200 Subject: [PATCH] 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 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") -- 2.39.5