Merge branch 'hotfix'

2012-04-09 20:48:51 +02:00 · 2012-04-09 20:48:51 +02:00 · 4a6f76bab8
parent 8ab0dedc4e 6144a83c5d
commit 4a6f76bab8
1 changed files with 6 additions and 5 deletions
--- a/lisp/org.el
+++ b/lisp/org.el
@ -20976,11 +20976,12 @@ This version does not only check the character property, but also
 If the heading only contains a TODO keyword, it is still still considered
 empty."
  (and (looking-at "[ \t]*$")
-       (save-excursion
-         (beginning-of-line 1)
-	 (let ((case-fold-search nil))
-	   (looking-at org-todo-line-regexp)))
-       (string= (match-string 3) "")))
+       (when org-todo-line-regexp
+	 (save-excursion
+	   (beginning-of-line 1)
+	   (let ((case-fold-search nil))
+	     (looking-at org-todo-line-regexp)
+	     (string= (match-string 3) ""))))))

 (defun org-at-heading-or-item-p ()
  (or (org-at-heading-p) (org-at-item-p)))