diff options
| -rw-r--r-- | lisp/+org.el | 9 |
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 |