From 34a91b7f5b41ebee2065d8151b33dc4d78e510e9 Mon Sep 17 00:00:00 2001
From: Carsten Dominik <carsten.dominik@gmail.com>
Date: Mon, 4 May 2009 16:57:26 +0200
Subject: [PATCH] Moved `org-reset-checkbox-state-subtree' to org-list.el

---
 contrib/lisp/org-checklist.el | 17 +----------------
 lisp/ChangeLog                |  5 +++++
 lisp/org-list.el              | 15 +++++++++++++++
 3 files changed, 21 insertions(+), 16 deletions(-)

diff --git a/contrib/lisp/org-checklist.el b/contrib/lisp/org-checklist.el
index c3348bc2d..26d228ff3 100644
--- a/contrib/lisp/org-checklist.el
+++ b/contrib/lisp/org-checklist.el
@@ -52,22 +52,7 @@
   "Reset all checkboxes in an entry if the `RESET_CHECK_BOXES' property is set"
   (interactive "*")
   (if (org-entry-get (point) "RESET_CHECK_BOXES")
-      (org-reset-checkbox-state)))
-
-(defun org-reset-checkbox-state ()
-  "Reset all checkboxes in an entry"
-  (interactive "*")
-  (save-restriction
-    (save-excursion
-      (org-narrow-to-subtree)
-      (org-show-subtree)
-      (goto-char (point-min))
-      (let ((end (point-max)))
-	(while (< (point) end)
-	  (when (org-at-item-checkbox-p)
-	    (replace-match "[ ]" t t))
-	  (beginning-of-line 2))))
-    (org-update-checkbox-count-maybe)))
+      (org-reset-checkbox-state-subtree)))
 
 (defun org-make-checklist-export ()
   "Produce a checklist containing all unchecked items from a list
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9091e6798..14252fde8 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2009-05-04  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-list.el (org-reset-checkbox-state-subtree): Moved here from
+	org-checklist.el.
+	(org-reset-checkbox-state-subtree): Call
+	`org-reset-checkbox-state-subtree'.
+
 	* org-remember.el (org-select-remember-template): For the
 	selection of a valid template.
 
diff --git a/lisp/org-list.el b/lisp/org-list.el
index d135ac08b..453ae12d3 100644
--- a/lisp/org-list.el
+++ b/lisp/org-list.el
@@ -319,6 +319,21 @@ text below the heading."
 	  (beginning-of-line 2)))))
   (org-update-checkbox-count-maybe))
 
+(defun org-reset-checkbox-state-subtree ()
+  "Reset all checkboxes in an entry subtree."
+  (interactive "*")
+  (save-restriction
+    (save-excursion
+      (org-narrow-to-subtree)
+      (org-show-subtree)
+      (goto-char (point-min))
+      (let ((end (point-max)))
+	(while (< (point) end)
+	  (when (org-at-item-checkbox-p)
+	    (replace-match "[ ]" t t))
+	  (beginning-of-line 2))))
+    (org-update-checkbox-count-maybe)))
+
 (defun org-checkbox-blocked-p ()
   "Is the current checkbox blocked from for being checked now?
 A checkbox is blocked if all of the following conditions are fulfilled: