diff options
author | Bastien Guerry <bzg@altern.org> | 2011-12-31 12:06:43 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-12-31 12:06:43 +0100 |
commit | 79bf3ed861e7effce772a995bf27921f12f86149 (patch) | |
tree | 21248052d73f8db449d56957a2903881f427f18d | |
parent | 6805c702ec7db48fb34626479ec554889629f3af (diff) | |
download | org-mode-79bf3ed861e7effce772a995bf27921f12f86149.tar.gz |
Fix bug about looping over archiving commands.
* org-archive.el (org-archive-subtree)
(org-archive-to-archive-sibling, org-toggle-archive-tag):
Bugfix: use 'region-start-level.
-rw-r--r-- | lisp/org-archive.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/org-archive.el b/lisp/org-archive.el index 27a78e4..8cdb153 100644 --- a/lisp/org-archive.el +++ b/lisp/org-archive.el @@ -192,7 +192,7 @@ this heading." (interactive "P") (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-current-level 'region)) + 'region-start-level 'region)) org-loop-over-headlines-in-active-region) (org-map-entries `(progn (setq org-map-continue-from (progn (org-back-to-heading) (point))) @@ -359,7 +359,7 @@ sibling does not exist, it will be created at the end of the subtree." (interactive) (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) (let ((cl (when (eq org-loop-over-headlines-in-active-region 'start-level) - 'region-current-level 'region)) + 'region-start-level 'region)) org-loop-over-headlines-in-active-region) (org-map-entries '(progn (setq org-map-continue-from @@ -472,7 +472,7 @@ the children that do not contain any open TODO items." (interactive "P") (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-current-level 'region)) + 'region-start-level 'region)) org-loop-over-headlines-in-active-region) (org-map-entries `(org-toggle-archive-tag ,find-done) @@ -493,7 +493,7 @@ the children that do not contain any open TODO items." (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-current-level 'region)) + 'region-start-level 'region)) org-loop-over-headlines-in-active-region) (org-map-entries 'org-archive-set-tag |