emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/org: make C-RET create headings instead of error

Browse source
This commit is contained in:
Henrik Lissner 2019-12-20 02:13:11 -05:00
parent ea9126a883
commit 73d975de6c
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 2 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
modules/lang/org/autoload/org.el
View file

@ -62,10 +62,7 @@
('above (save-excursion (org-shiftmetadown)) ('above (save-excursion (org-shiftmetadown))
(+org/table-previous-row)))) (+org/table-previous-row))))
((memq type '(headline inlinetask)) ((let ((level (or (org-current-level) 1)))
(let ((level (if (eq (org-element-type context) 'headline)
(org-element-property :level context)
1)))
(pcase direction (pcase direction
(`below (`below
(let (org-insert-heading-respect-content) (let (org-insert-heading-respect-content)
@ -81,9 +78,7 @@
(org-todo (cond ((eq todo-type 'done) (org-todo (cond ((eq todo-type 'done)
(car (+org-get-todo-keywords-for todo-keyword))) (car (+org-get-todo-keywords-for todo-keyword)))
(todo-keyword) (todo-keyword)
('todo)))))) ('todo)))))))
((user-error "Not a valid list, heading or table")))
(when (org-invisible-p) (when (org-invisible-p)
(org-show-hidden-entry)) (org-show-hidden-entry))