mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

Make vtable narrow/widen functions take a prefix

Browse source 
* lisp/emacs-lisp/vtable.el (vtable-narrow-current-column)
(vtable-widen-current-column): Allow using the prefix to say how
much to narrow/widen the columns.
This commit is contained in:
Lars Ingebrigtsen 2022-04-14 02:47:23 +02:00
parent ffb7612d2c
commit c3b6cfda36
1 changed files with 16 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/emacs-lisp/vtable.el
View file

@ -758,9 +758,12 @@ This also updates the displayed table."
"Minor mode for buffers with vtables with headers."
:keymap vtable-header-mode-map)
(defun vtable-narrow-current-column ()
"Narrow the current column."
(interactive)
(defun vtable-narrow-current-column (&optional n)
"Narrow the current column by N characters.
If N isn't given, N defaults to 1.
Interactively, N is the prefix argument."
(interactive "p")
(let* ((table (vtable-current-table))
(column (vtable-current-column))
(widths (vtable--widths table)))
@ -768,18 +771,23 @@ This also updates the displayed table."
(user-error "No column under point"))
(setf (aref widths column)
(max (* (vtable--char-width table) 2)
(- (aref widths column) (vtable--char-width table))))
(- (aref widths column)
(* (vtable--char-width table) (or n 1)))))
(vtable-revert)))
(defun vtable-widen-current-column ()
"Widen the current column."
(interactive)
(defun vtable-widen-current-column (&optional n)
"Widen the current column by N characters.
If N isn't given, N defaults to 1.
Interactively, N is the prefix argument."
(interactive "p")
(let* ((table (vtable-current-table))
(column (vtable-current-column))
(widths (nth 1 (vtable--cache table))))
(unless column
(user-error "No column under point"))
(cl-incf (aref widths column) (vtable--char-width table))
(cl-incf (aref widths column)
(* (vtable--char-width table) (or n 1)))
(vtable-revert)))
(defun vtable-previous-column ()