summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/+org.el9
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/+org.el b/lisp/+org.el index f81d9a1..77c9836 100644 --- a/lisp/+org.el +++ b/lisp/+org.el
@@ -79,8 +79,13 @@ appropriate. In tables, insert a new row or end the table."
79 (let* ((context (org-element-context)) 79 (let* ((context (org-element-context))
80 (first-item-p (eq 'plain-list (car context))) 80 (first-item-p (eq 'plain-list (car context)))
81 (itemp (eq 'item (car context))) 81 (itemp (eq 'item (car context)))
82 (emptyp (eq (org-element-property :contents-begin context) 82 (emptyp (or
83 (org-element-property :contents-end context))) 83 ;; Empty list item (regular)
84 (eq (org-element-property :contents-begin context)
85 (org-element-property :contents-end context))
86 ;; Empty list item (definition)
87 ;; This seems to work, with minimal testing. -- 2022-02-17
88 (looking-at " *::")))
84 (item-child-p 89 (item-child-p
85 (+org-element-descendant-of 'item context))) 90 (+org-element-descendant-of 'item context)))
86 ;; The original function from unpackaged just tested the (or ...) test 91 ;; The original function from unpackaged just tested the (or ...) test