summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2011-07-18 18:14:35 +0200
committerBastien Guerry <bzg@altern.org>2011-07-18 18:14:35 +0200
commit395af11404f3348c92e9ca234f1cb0fe9bd3529a (patch)
treec9b913a8c761791dbe47041bd617712220b87ab9
parentddec51af0f58e678af84c753da4065a9450c3ae5 (diff)
downloadorg-mode-395af11404f3348c92e9ca234f1cb0fe9bd3529a.tar.gz
Use `org-loop-over-siblings-in-active-region' for `org-archive-set-tag'.
-rw-r--r--lisp/org-archive.el3
-rw-r--r--lisp/org.el3
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-archive.el b/lisp/org-archive.el
index 45bfc63..b506449 100644
--- a/lisp/org-archive.el
+++ b/lisp/org-archive.el
@@ -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 ()
diff --git a/lisp/org.el b/lisp/org.el
index 27be6a6..ce77120 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -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)