From mboxrd@z Thu Jan 1 00:00:00 1970 From: David Maus Subject: [PATCH 4/5] Skip invisible headlines when mapping over headlines in active region Date: Thu, 25 Aug 2011 06:25:33 +0200 Message-ID: <1314246334-5053-5-git-send-email-dmaus@ictsoc.de> References: <87obzpl3ec.fsf@gnu.org> Return-path: Received: from eggs.gnu.org ([140.186.70.92]:47498) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QwRW7-0001Zj-0o for emacs-orgmode@gnu.org; Thu, 25 Aug 2011 00:26:12 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1QwRW6-0002Vx-0i for emacs-orgmode@gnu.org; Thu, 25 Aug 2011 00:26:10 -0400 Received: from app1b.xlhost.de ([213.202.242.162]:59411) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1QwRW5-0002Vp-S2 for emacs-orgmode@gnu.org; Thu, 25 Aug 2011 00:26:09 -0400 In-Reply-To: <87obzpl3ec.fsf@gnu.org> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: 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