|
@@ -14343,6 +14343,10 @@ user."
|
|
|
(setq org-read-date-overlay nil)))))
|
|
(setq org-read-date-overlay nil)))))
|
|
|
|
|
|
|
|
(setq final (org-read-date-analyze ans def defdecode))
|
|
(setq final (org-read-date-analyze ans def defdecode))
|
|
|
|
|
+
|
|
|
|
|
+ ;; One round trip to get rid of 34th of August and stuff like that....
|
|
|
|
|
+ (setq final (decode-time (apply 'encode-time final)))
|
|
|
|
|
+
|
|
|
(setq org-read-date-final-answer ans)
|
|
(setq org-read-date-final-answer ans)
|
|
|
|
|
|
|
|
(if to-time
|
|
(if to-time
|