Add doc string to a function

2 files changed, 5 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7cc5027..42b7a62 100755
--- a/lisp/ChangeLog
+++ b/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):
diff --git a/lisp/org-habit.el b/lisp/org-habit.el
index c27f6b9..d3179cf 100644
--- a/lisp/org-habit.el
+++ b/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)