diff options
author | Bastien Guerry <bzg@altern.org> | 2011-07-18 18:14:35 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-07-18 18:14:35 +0200 |
commit | 395af11404f3348c92e9ca234f1cb0fe9bd3529a (patch) | |
tree | c9b913a8c761791dbe47041bd617712220b87ab9 | |
parent | ddec51af0f58e678af84c753da4065a9450c3ae5 (diff) | |
download | org-mode-395af11404f3348c92e9ca234f1cb0fe9bd3529a.tar.gz |
Use `org-loop-over-siblings-in-active-region' for `org-archive-set-tag'.
-rw-r--r-- | lisp/org-archive.el | 3 | ||||
-rw-r--r-- | lisp/org.el | 3 |
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) |