So, to avoid this, i have introduced a new variable,
org-archive-subtree-always-call-find-done, so that when it's set to 't
,
org-archive-subtree will always behave as if called with find-done set
to 't.
(By default is set to nil, so org-archive-subtree will behave as
always for
the rest of the world)
Maybe it's interesting to somebody, and it's a really small patch:
(Against 4.69 version)
=== modified file 'org.el'
--- org.el 2007-03-29 10:29:19 +0000
+++ org.el 2007-03-29 10:48:40 +0000
@@ -618,6 +618,12 @@
:group 'org-archive
:type 'boolean)
+(defcustom org-archive-subtree-always-call-find-done nil
+ "Non-nil will make that calling org-archive-subtree behaves as if
called
with param find-done=t."
+ :group 'org-archive
+ :type 'boolean)
+
+
(defgroup org-table nil
"Options concerning tables in Org-mode."
:tag "Org Table"
@@ -5566,7 +5572,7 @@
1 trees. If the cursor is on a headline, only try the direct
children of
this heading. "
(interactive "P")
- (if find-done
+ (if (or find-done org-archive-subtree-always-call-find-done)
(org-archive-all-done)
;; Save all relevant TODO keyword-relatex variables
Thanks a lot for org-mode, it's great!!
-- M
_______________________________________________
Emacs-orgmode mailing list
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode