0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 20:07:46 +00:00

org: Show planning type in prompt when editing

* lisp/org.el (org-add-planning-info): Call `org-read-date' with either
  DEADLINE or SCHEDULED as value for the prompt.
This commit is contained in:
Marco Wahl 2018-09-26 14:15:34 +02:00
parent f82a3051a9
commit 6e584d06fd

View file

@ -13051,7 +13051,11 @@ WHAT entry will also be removed."
(org-read-date-analyze
time default-time (decode-time default-time)))
;; If necessary, get the time from the user
(or time (org-read-date nil 'to-time nil nil
(or time (org-read-date nil 'to-time nil
(cl-case what
(deadline "DEADLINE")
(scheduled "SCHEDULED")
(otherwise nil))
default-time default-input)))))
(org-with-wide-buffer