Add doc string to a function

lisp/ChangeLog

@@ -1,3 +1,7 @@
+2009-11-19  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org-habit.el (org-is-habit-p): Add doc string.
+
 2009-11-18  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-archive.el (org-archive-subtree-default-with-confirmation):

lisp/org-habit.el

@@ -128,6 +128,7 @@ relative to the current effective date."
     (error "Invalid duration string: %s" ts)))
 
 (defun org-is-habit-p (&optional pom)
+  "Is the task at POM or point a habit?"
   (string= "habit" (org-entry-get (or pom (point)) "STYLE")))
 
 (defun org-habit-parse-todo (&optional pom)