* 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
