Function: org-archive-set-tag

org-archive-set-tag is an interactive and byte-compiled function defined in org-archive.el.gz.

Signature

(org-archive-set-tag)

Documentation

Set the ARCHIVE tag.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-archive.el.gz
(defun org-archive-set-tag ()
  "Set the ARCHIVE tag."
  (interactive)
  (if (and (org-region-active-p) org-loop-over-headlines-in-active-region)
      (let ((cl (if (eq org-loop-over-headlines-in-active-region 'start-level)
		    'region-start-level 'region))
	    org-loop-over-headlines-in-active-region)
	(org-map-entries
	 'org-archive-set-tag
	 org-loop-over-headlines-in-active-region
	 cl (if (org-invisible-p) (org-end-of-subtree nil t))))
    (org-toggle-tag org-archive-tag 'on)))