summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2011-12-31 12:06:43 +0100
committerBastien Guerry <bzg@altern.org>2011-12-31 12:06:43 +0100
commit79bf3ed861e7effce772a995bf27921f12f86149 (patch)
tree21248052d73f8db449d56957a2903881f427f18d
parent6805c702ec7db48fb34626479ec554889629f3af (diff)
downloadorg-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.el8
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