Function: org-persist-collection-let

org-persist-collection-let is a macro defined in org-persist.el.gz.

Signature

(org-persist-collection-let COLLECTION &rest BODY)

Documentation

Bind container and associated from COLLECTION and execute BODY.

BODY is executed in a context with the following additional variables: container, associated, path, inode, hash, and key.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-persist.el.gz
;;;; Working with index

(defmacro org-persist-collection-let (collection &rest body)
  "Bind container and associated from COLLECTION and execute BODY.
BODY is executed in a context with the following additional variables:
`container', `associated', `path', `inode', `hash', and `key'."
  (declare (debug (form body)) (indent 1))
  `(let* ((container (plist-get ,collection :container))
          (associated (plist-get ,collection :associated))
          (path (plist-get associated :file))
          (inode (plist-get associated :inode))
          (hash (plist-get associated :hash))
          (key (plist-get associated :key)))
     ;; Suppress "unused variable" warnings.
     (ignore container associated path inode hash key)
     ,@body))