tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

org: Enable planning lines for special edit 

* lisp/org.el (org-edit-special): Add a case for element type
  'planning.
This commit is contained in:
Marco Wahl 2018-09-27 13:46:19 +02:00
parent 7ae1230816
commit 3f8b1b0265
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org.el
View File

@ -20103,6 +20103,7 @@ When in an export block, call `org-edit-export-block'.
When in a LaTeX environment, call `org-edit-latex-environment'.
When at an #+INCLUDE keyword, visit the included file.
When at a footnote reference, call `org-edit-footnote-reference'.
When at a planning line call, `org-deadline' and/or `org-schedule'.
When at an active timestamp, call `org-time-stamp'.
When at an inactive timestamp, call `org-time-stamp-inactive'.
On a link, call `ffap' to visit the link at point.
@ -20150,6 +20151,13 @@ Otherwise, return a user error."
(`export-block (org-edit-export-block))
(`fixed-width (org-edit-fixed-width-region))
(`latex-environment (org-edit-latex-environment))
(`planning
(let ((proplist (cadr element)))
(mapc #'call-interactively
(remq nil
(list
(when (plist-get proplist :deadline) #'org-deadline)
(when (plist-get proplist :scheduled) #'org-schedule))))))
(_
;; No notable element at point. Though, we may be at a link or
;; a footnote reference, which are objects. Thus, scan deeper.