tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Revert "org.el: Fix bug in interpreting `org-read-date-prefer-future' for time" 

This reverts commit 053d0597e6.
This commit is contained in:
Bastien Guerry 2012-08-15 11:11:12 +02:00
parent 053d0597e6
commit d14ed316cc
1 changed files with 4 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/org.el
View File

@ -2741,11 +2741,9 @@ Custom commands can set this variable in the options section."
(defcustom org-read-date-prefer-future t
"Non-nil means assume future for incomplete date input from user.
This affects the following situations:
1. The user gives a month but not a year.
For example, if it is April and you enter \"feb 2\", this will be read
as Feb 2, *next* year. \"May 5\", however, will be this year.
2. The user gives a day, but no month.
For example, if today is the 15th, and you enter \"3\", Org-mode will
read this as the third of *next* month. However, if you enter \"17\",
@ -2754,8 +2752,8 @@ This affects the following situations:
If you set this variable to the symbol `time', then also the following
will work:
3. If the user gives a time, but no day.
If the time is before now, to will be interpreted as tomorrow.
3. If the user gives a time, but no day. If the time is before now,
to will be interpreted as tomorrow.
Currently none of this works for ISO week specifications.
@ -15653,11 +15651,7 @@ user."
(substring ans (match-end 7))))))
(setq tl (parse-time-string ans)
day (or (nth 3 tl)
(if (and (eq org-read-date-prefer-future 'time)
(nth 2 tl) (< (nth 2 tl) (nth 2 nowdecode)))
(prog1 (1+ (nth 3 nowdecode)) (setq futurep t))
(nth 3 org-defdecode)))
day (or (nth 3 tl) (nth 3 org-defdecode))
month (or (nth 4 tl)
(if (and org-read-date-prefer-future
(nth 3 tl) (< (nth 3 tl) (nth 3 nowdecode)))
@ -15668,11 +15662,7 @@ user."
(nth 4 tl) (< (nth 4 tl) (nth 4 nowdecode)))
(prog1 (1+ (nth 5 nowdecode)) (setq futurep t))
(nth 5 org-defdecode)))
hour (or (nth 2 tl)
(if (and (eq org-read-date-prefer-future 'time)
(nth 1 tl) (< (nth 1 tl) (nth 1 nowdecode)))
(prog1 (1+ (nth 2 nowdecode)) (setq futurep t))
(nth 2 org-defdecode)))
hour (or (nth 2 tl) (nth 2 org-defdecode))
minute (or (nth 1 tl) (nth 1 org-defdecode))
second (or (nth 0 tl) 0)
wday (nth 6 tl))