From 2ac0810d190113e4fca60aab67567496cf20b5a9 Mon Sep 17 00:00:00 2001 From: David Maus Date: Thu, 25 Aug 2011 06:25:33 +0200 Subject: [PATCH] Skip invisible headlines when mapping over headlines in active region * org.el (org-deadline, org-schedule): Skip invisible headlines when mapping over headlines in active region. --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index ee1edf343..12921c816 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -11873,7 +11873,7 @@ can either be an Org date like \"2011-07-24\" or a delta like \"+2d\"." (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) (let (org-loop-over-headlines-in-active-region) (org-map-entries - `(org-deadline ',remove ,time) org-loop-over-headlines-in-active-region 'region)) + `(org-deadline ',remove ,time) org-loop-over-headlines-in-active-region 'region (if (outline-invisible-p) (org-end-of-subtree nil t)))) (let* ((old-date (org-entry-get nil "DEADLINE")) (repeater (and old-date (string-match @@ -11917,7 +11917,7 @@ either be an Org date like \"2011-07-24\" or a delta like \"+2d\"." (if (and (org-region-active-p) org-loop-over-headlines-in-active-region) (let (org-loop-over-headlines-in-active-region) (org-map-entries - `(org-schedule ',remove ,time) org-loop-over-headlines-in-active-region 'region)) + `(org-schedule ',remove ,time) org-loop-over-headlines-in-active-region 'region (if (outline-invisible-p) (org-end-of-subtree nil t)))) (let* ((old-date (org-entry-get nil "SCHEDULED")) (repeater (and old-date (string-match -- 2.11.4.GIT