diff --git a/lisp/org.el b/lisp/org.el
index 56506d6b8..06506916f 100755
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -6237,8 +6237,11 @@ done, nil otherwise."
 
 (defun org-outline-level ()
   "Compute the outline level of the heading at point.
-If this is called at a normal headline, the level is the number of stars.
-Use `org-reduced-level' to remove the effect of `org-odd-levels'."
+
+If this is called at a normal headline, the level is the number
+of stars.  Use `org-reduced-level' to remove the effect of
+`org-odd-levels'.  Unlike to `org-current-level', this functions
+takes into consideration inline tasks."
   (org-with-wide-buffer
    (end-of-line)
    (if (re-search-backward org-outline-regexp-bol nil t)
@@ -8083,7 +8086,10 @@ in the region."
 
 (defun org-current-level ()
   "Return the level of the current entry, or nil if before the first headline.
-The level is the number of stars at the beginning of the headline."
+The level is the number of stars at the beginning of the
+headline.  Use `org-reduced-level' to remove the effect of
+`org-odd-levels'.  Unlike to `org-outline-level', this function
+ignores inlinetasks."
   (let ((level (org-with-limited-levels (org-outline-level))))
     (and (> level 0) level)))