summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Maus <dmaus@ictsoc.de>2011-08-25 06:25:33 +0200
committerBastien Guerry <bzg@altern.org>2011-10-22 16:20:14 +0200
commit2ac0810d190113e4fca60aab67567496cf20b5a9 (patch)
treef949b7b46f1d0cb8b3d2b0e47f4358eded5eb7c4
parente67a28e9639881e5dc89b8aa2d780f33d96ba93d (diff)
downloadorg-mode-2ac0810d190113e4fca60aab67567496cf20b5a9.tar.gz
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.
-rw-r--r--lisp/org.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el
index ee1edf3..12921c8 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