Merge branch 'hotfix'
This commit is contained in:
commit
4a6f76bab8
11
lisp/org.el
11
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)))
|
||||
|
|
Loading…
Reference in New Issue