Function: org-table-with-shrunk-columns

org-table-with-shrunk-columns is a macro defined in org-table.el.gz.

Signature

(org-table-with-shrunk-columns &rest BODY)

Documentation

Expand all columns before executing BODY, then shrink them again.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-table.el.gz
;;; Macros and Inlined Functions

(defmacro org-table-with-shrunk-columns (&rest body)
  "Expand all columns before executing BODY, then shrink them again."
  (declare (debug (body)))
  (org-with-gensyms (shrunk-columns begin end)
    `(let ((,begin (copy-marker (org-table-begin)))
	   (,end (copy-marker (org-table-end) t))
	   (,shrunk-columns (org-table--list-shrunk-columns)))
       (org-with-point-at ,begin (org-table-expand ,begin ,end))
       (unwind-protect
	   (progn ,@body)
	 (org-table--shrink-columns ,shrunk-columns ,begin ,end)
	 (set-marker ,begin nil)
	 (set-marker ,end nil)))))