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.

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."
  (declare (debug (form body)) (indent 1))
  `(with-no-warnings
     (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)))