Fix read-date problem that could result in August 34th

Paul Sexton writes:

> Today (31 August),
> if I evaluate "(org-read-date t)", then at the prompt type
> "+3"
> The string returned is:
> "2010-08-34"
This commit is contained in:
Carsten Dominik 2010-08-31 09:22:26 +02:00
parent dabfd646ae
commit fa18c1c232
1 changed files with 4 additions and 0 deletions

View File

@ -14343,6 +14343,10 @@ user."
(setq org-read-date-overlay nil)))))
(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)
(if to-time