Ver Fonte

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

This reverts commit 4f49ebb6d6ebde78ccea88704fcead33bb0b59f5.
Bastien Guerry há 4 anos atrás
pai
commit
771c66f791
1 ficheiros alterados com 3 adições e 5 exclusões
  1. 3 5
      lisp/org.el

+ 3 - 5
lisp/org.el

@@ -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)))))