mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 18:00:49 +00:00
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:
parent
7ae1230816
commit
3f8b1b0265
|
@ -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.
|
||||
|
|
Loading…
Reference in a new issue