Function: org-columns--call

org-columns--call is a byte-compiled function defined in org-colview.el.gz.

Signature

(org-columns--call FUN)

Documentation

Call function FUN while preserving heading visibility.

FUN is a function called with no argument.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-colview.el.gz
(defun org-columns--call (fun)
  "Call function FUN while preserving heading visibility.
FUN is a function called with no argument."
  (let ((hide-body (and (/= (line-end-position) (point-max))
			(save-excursion
			  (move-beginning-of-line 2)
			  (org-at-heading-p)))))
    (unwind-protect (funcall fun)
      (when hide-body (org-fold-hide-entry)))))