awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

lang/org: fix edge case in +org--insert-item

Browse Source
This commit is contained in:
Henrik Lissner
2020-07-27 03:07:04 -04:00
parent 046dfb6475
commit 0e73297707
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
modules/lang/org/autoload/org.el
View File

@ -34,10 +34,16 @@
;; insert the new list item. ;; insert the new list item.
(if (eq direction 'above) (if (eq direction 'above)
(org-beginning-of-item) (org-beginning-of-item)
(org-end-of-item)) (org-end-of-item)
(if (org-element-property :checkbox context) (backward-char))
(org-insert-todo-heading nil) (org-insert-item (org-element-property :checkbox context))
(org-insert-item))) ;; Handle edge case where current item is empty and bottom of list is
;; flush against a new heading.
(when (and (eq direction 'below)
(eq (org-element-property :contents-begin context)
(org-element-property :contents-end context)))
(org-end-of-item)
(org-end-of-line)))
;; Add a new table row ;; Add a new table row
((or `table `table-row) ((or `table `table-row)