Nicolas Goaziou преди 7 години
родител
ревизия
52ba1a27ad
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      lisp/org-capture.el

+ 1 - 1
lisp/org-capture.el

@@ -1010,7 +1010,7 @@ Store them in the capture property list."
 			 ;; Use 00:00 when no time is given for another
 			 ;; date than today?
 			 (apply #'encode-time
-				(append '(0 0 0)
+				(append `(0 0 ,org-extend-today-until)
 					(cl-cdddr (decode-time prompt-time)))))
 			((string-match "\\([^ ]+\\)--?[^ ]+[ ]+\\(.*\\)"
 				       org-read-date-final-answer)