summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2022-04-15 13:45:00 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2022-04-15 13:45:00 +0200
commit4bc36f09b9eb27a8c5e4c6fdc630d9476897c04b (patch)
tree16f44e2c29b1089dbd7a9fc4d3ab7354dce13a97 /lisp/emacs-lisp
parentc4768cda7f84a4368500685d1525fa93990e5aa0 (diff)
downloademacs-4bc36f09b9eb27a8c5e4c6fdc630d9476897c04b.tar.gz
emacs-4bc36f09b9eb27a8c5e4c6fdc630d9476897c04b.tar.bz2
emacs-4bc36f09b9eb27a8c5e4c6fdc630d9476897c04b.zip
Tweak sorting indicator placement in vtable
* lisp/emacs-lisp/vtable.el (vtable--insert-header-line): Tweak sorting indicator position.
Diffstat (limited to 'lisp/emacs-lisp')
-rw-r--r--lisp/emacs-lisp/vtable.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index ec7e4b4a6b9..d620f237266 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")