From 79bf3ed861e7effce772a995bf27921f12f86149 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sat, 31 Dec 2011 12:06:43 +0100 Subject: [PATCH] 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. --- lisp/org-archive.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/org-archive.el b/lisp/org-archive.el index 27a78e40e..8cdb1532a 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 -- 2.11.4.GIT