mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Revert "org.el: Fix `org-add-planning-info'" 

This reverts commit 4f49ebb6d6.
This commit is contained in:
Bastien Guerry 2020-09-09 12:06:55 +02:00
parent f5573e6a00
commit 771c66f791
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/org.el
View File

@ -10621,7 +10621,7 @@ among `closed', `deadline', `scheduled' and nil. TIME indicates
the time to use. If none is given, the user is prompted for
a date. REMOVE indicates what kind of entries to remove. An old
WHAT entry will also be removed."
(let (default-time default-input)
(let (org-time-was-given org-end-time-was-given default-time default-input)
(when (and (memq what '(scheduled deadline))
(or (not time)
(and (stringp time)
@ -10710,12 +10710,10 @@ WHAT entry will also be removed."
;; Insert associated timestamp.
(let ((ts (org-insert-time-stamp
time
(or (and (boundp 'org-time-was-given) org-time-was-given)
(or org-time-was-given
(and (eq what 'closed) org-log-done-with-time))
(eq what 'closed)
nil nil
(when (boundp 'org-end-time-was-given)
(list org-end-time-was-given)))))
nil nil (list org-end-time-was-given))))
(unless (eolp) (insert " "))
ts)))))