diff options
| author | Lars Ingebrigtsen | 2022-04-14 02:41:27 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2022-04-14 02:41:27 +0200 |
| commit | ffb7612d2cf84ca1863a10873eb4a9721ffc720d (patch) | |
| tree | f2a55f5aeec55417d76b92c249201f9afc6a1980 | |
| parent | 8969836cb8e36df9dcd3f5031b2dcc648c4c90dc (diff) | |
| download | emacs-ffb7612d2cf84ca1863a10873eb4a9721ffc720d.tar.gz emacs-ffb7612d2cf84ca1863a10873eb4a9721ffc720d.zip | |
Copy edit make-vtable code
* lisp/emacs-lisp/vtable.el (make-vtable): Clean up code slightly.
| -rw-r--r-- | lisp/emacs-lisp/vtable.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el index 2c6c90ee1f5..03fe54c94e9 100644 --- a/lisp/emacs-lisp/vtable.el +++ b/lisp/emacs-lisp/vtable.el | |||
| @@ -152,12 +152,10 @@ See info node `(vtable)Top' for vtable documentation." | |||
| 152 | (when (or divider divider-width) | 152 | (when (or divider divider-width) |
| 153 | (setf (vtable-divider table) | 153 | (setf (vtable-divider table) |
| 154 | (or divider | 154 | (or divider |
| 155 | (and divider-width | 155 | (propertize |
| 156 | (propertize | 156 | " " 'display |
| 157 | " " 'display | 157 | (list 'space :width |
| 158 | (list 'space :width | 158 | (list (vtable--compute-width table divider-width))))))) |
| 159 | (list (vtable--compute-width | ||
| 160 | table divider-width)))))))) | ||
| 161 | (unless sort-by | 159 | (unless sort-by |
| 162 | (seq-do-indexed (lambda (column index) | 160 | (seq-do-indexed (lambda (column index) |
| 163 | (when (vtable-column-primary column) | 161 | (when (vtable-column-primary column) |