From mboxrd@z Thu Jan  1 00:00:00 1970
From: Bastien <bzg@altern.org>
Subject: Re: "DONE" all subtasks recursively
Date: Fri, 22 Jul 2011 15:52:10 +0200
Message-ID: <8762mu1kz9.fsf@gnu.org>
References: <CACHMzOG96qCpocwcrfeu9s=oQ6SaQieO7Q+TUc7onK77=SQCXg@mail.gmail.com>
	<CACHMzOHcusAQsx725p0aj0BhuN_BkdHp9Ao6GyHTiTrkdyzB8Q@mail.gmail.com>
	<87aac7dnr6.fsf@norang.ca>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([140.186.70.92]:35991)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <bastienguerry@googlemail.com>) id 1QkG8s-0003v4-Cc
	for emacs-orgmode@gnu.org; Fri, 22 Jul 2011 09:51:51 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <bastienguerry@googlemail.com>) id 1QkG8r-000761-C2
	for emacs-orgmode@gnu.org; Fri, 22 Jul 2011 09:51:50 -0400
Received: from mail-ww0-f49.google.com ([74.125.82.49]:40238)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <bastienguerry@googlemail.com>) id 1QkG8r-00075u-60
	for emacs-orgmode@gnu.org; Fri, 22 Jul 2011 09:51:49 -0400
Received: by wwf22 with SMTP id 22so1784588wwf.30
	for <emacs-orgmode@gnu.org>; Fri, 22 Jul 2011 06:51:48 -0700 (PDT)
In-Reply-To: <87aac7dnr6.fsf@norang.ca> (Bernt Hansen's message of "Thu, 21
	Jul 2011 22:59:09 -0400")
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: </archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=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: Bernt Hansen <bernt@norang.ca>
Cc: Org Mode <emacs-orgmode@gnu.org>, Marcelo de Moraes Serpa <celoserpa@gmail.com>

Hi Bernt,

Bernt Hansen <bernt@norang.ca> writes:

> (defun bh/mark-subtree-done ()
>   (interactive)
>   (org-mark-subtree)
>   (let ((limit (point)))
>     (save-excursion
>       (exchange-point-and-mark)
>       (while (> (point) limit)
> 	(org-todo "DONE")
> 	(outline-previous-visible-heading 1))
>       (org-todo "DONE"))))
>
> Then M-x bh/mark-subtree-done.

Thanks for this -- I added an entry in Worg/org-hacks.html

Best,

-- 
 Bastien