diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-15 13:45:00 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-04-15 13:45:00 +0200 |
| commit | 4bc36f09b9eb27a8c5e4c6fdc630d9476897c04b (patch) | |
| tree | 16f44e2c29b1089dbd7a9fc4d3ab7354dce13a97 /lisp/emacs-lisp | |
| parent | c4768cda7f84a4368500685d1525fa93990e5aa0 (diff) | |
| download | emacs-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.el | 9 |
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") |