Make vtable remember user-altered column widths

* lisp/emacs-lisp/vtable.el (vtable-narrow-current-column)
(vtable-widen-current-column): Store the size to that it's
respected on `g'.

diff --git a/lisp/emacs-lisp/vtable.el b/lisp/emacs-lisp/vtable.el
index 66feec4e69a9e0c8ffcfd752fdcb5ff32c196309..d53f8b074504bee1d2ebefac173474a88aec3498 100644 (file)
--- a/lisp/emacs-lisp/vtable.el
+++ b/lisp/emacs-lisp/vtable.el
@@ -776,6 +776,9 @@ Interactively, N is the prefix argument."
           (max (* (vtable--char-width table) 2)
                (- (aref widths column)
                   (* (vtable--char-width table) (or n 1)))))
+    ;; Store the width so it'll be respected on a revert.
+    (setf (vtable-column-width (elt (vtable-columns table) column))
+          (format "%dpx" (aref widths column)))
     (vtable-revert)))
 
 (defun vtable-widen-current-column (&optional n)
@@ -791,6 +794,9 @@ Interactively, N is the prefix argument."
       (user-error "No column under point"))
     (cl-incf (aref widths column)
              (* (vtable--char-width table) (or n 1)))
+    ;; Store the width so it'll be respected on a revert.
+    (setf (vtable-column-width (elt (vtable-columns table) column))
+          (format "%dpx" (aref widths column)))
     (vtable-revert)))
 
 (defun vtable-previous-column ()