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

lang/org: preserve TODO keyword on C-RET

Browse Source 
Rather than reverting to first TODO keyword.
This commit is contained in:
Henrik Lissner
2019-11-11 14:49:34 -05:00
parent f70f788df3
commit 7879a93081
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -95,9 +95,12 @@
(org-back-to-heading) (org-back-to-heading)
(insert (make-string level ?*) " ") (insert (make-string level ?*) " ")
(save-excursion (insert "\n")))) (save-excursion (insert "\n"))))
(when-let (todo-keyword (org-element-property :todo-keyword context)) (when-let* ((todo-keyword (org-element-property :todo-keyword context))
(org-todo (or (car (+org-get-todo-keywords-for todo-keyword)) (todo-type (org-element-property :todo-type context)))
'todo))))) (org-todo (cond ((eq todo-type 'done)
(car (+org-get-todo-keywords-for todo-keyword)))
(todo-keyword)
('todo))))))
((user-error "Not a valid list, heading or table"))) ((user-error "Not a valid list, heading or table")))