Copy edit make-vtable code
* lisp/emacs-lisp/vtable.el (make-vtable): Clean up code slightly.
This commit is contained in:
parent
8969836cb8
commit
ffb7612d2c
1 changed files with 4 additions and 6 deletions
|
@ -152,12 +152,10 @@ See info node `(vtable)Top' for vtable documentation."
|
|||
(when (or divider divider-width)
|
||||
(setf (vtable-divider table)
|
||||
(or divider
|
||||
(and divider-width
|
||||
(propertize
|
||||
" " 'display
|
||||
(list 'space :width
|
||||
(list (vtable--compute-width
|
||||
table divider-width))))))))
|
||||
(propertize
|
||||
" " 'display
|
||||
(list 'space :width
|
||||
(list (vtable--compute-width table divider-width)))))))
|
||||
(unless sort-by
|
||||
(seq-do-indexed (lambda (column index)
|
||||
(when (vtable-column-primary column)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue