[O] [PATCH 4/5] Skip invisible headlines when mapping over headlines in active region

[David Maus]

* org.el (org-deadline, org-schedule): Skip invisible headlines when
mapping over headlines in active region.
---
 lisp/org.el |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index d15c946..03c4c13 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -11829,7 +11829,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
@@ -11873,7 +11873,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
-- 
1.7.2.5