Use `org-loop-over-siblings-in-active-region' for `org-archive-set-tag'.
authorBastien Guerry <bzg@altern.org>
Mon, 18 Jul 2011 16:14:35 +0000 (18:14 +0200)
committerBastien Guerry <bzg@altern.org>
Mon, 18 Jul 2011 16:14:35 +0000 (18:14 +0200)
lisp/org-archive.el
lisp/org.el

index 45bfc63..b506449 100644 (file)
@@ -462,7 +462,8 @@ the children that do not contain any open TODO items."
 (defun org-archive-set-tag ()
   "Set the ARCHIVE tag."
   (interactive)
-  (org-toggle-tag org-archive-tag 'on))
+  (org-loop-over-siblings-in-active-region
+   (org-toggle-tag org-archive-tag 'on)))
 
 ;;;###autoload
 (defun org-archive-subtree-default ()
index 27be6a6..ce77120 100644 (file)
@@ -1983,7 +1983,8 @@ The list of commands is:
 - `org-deadline'
 - `org-archive-subtree'
 - `org-archive-to-archive-sibling'
-- `org-archive-set-tag'"
+- `org-archive-set-tag'
+- `org-toggle-archive-tag'"
   :group 'org-todo
   :group 'org-archive)