master c3b6cfda36: Make vtable narrow/widen functions take a prefix

[Lars Ingebrigtsen]

branch: master
commit c3b6cfda3621c61634a6be37cbc3d62406daee00
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Make vtable narrow/widen functions take a prefix
    
    * 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.
---
 lisp/emacs-lisp/vtable.el | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index 03fe54c94e..f14c9ae9a6 100644
--- a/lisp/emacs-lisp/vtable.el
+++ b/lisp/emacs-lisp/vtable.el
@@ -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 ()