Function: org-all-archive-files

org-all-archive-files is a byte-compiled function defined in org-archive.el.gz.

Signature

(org-all-archive-files)

Documentation

List of all archive files used in the current buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-archive.el.gz
(defun org-all-archive-files ()
  "List of all archive files used in the current buffer."
  (let* ((case-fold-search t)
	 (files `(,(car (org-archive--compute-location org-archive-location)))))
    (org-with-point-at 1
      (while (re-search-forward "^[ \t]*:ARCHIVE:" nil t)
	(when (org-at-property-p)
	  (pcase (org-archive--compute-location (match-string 3))
	    (`(,file . ,_)
	     (when (org-string-nw-p file)
	       (cl-pushnew file files :test #'file-equal-p))))))
      (cl-remove-if-not #'file-exists-p (nreverse files)))))