Hi Bernt, Bernt Hansen <be...@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
