mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-18 18:51:52 +00:00
Code

Fix bug with past preference in scheduled dates

Browse Source
This commit is contained in:
Carsten Dominik 2009-09-17 22:12:12 +01:00
parent 0fd5ebc3bc
commit cd6408d992
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2009-09-17 Carsten Dominik <carsten.dominik@gmail.com>
* org.el (org-closest-date): Fix issue with past preference.
* org-mobile.el (org-mobile-apply-flags): Require `org-archive'.
* org-archive.el (org-archive-set-tag)

4
lisp/org.el
View File

@ -13279,11 +13279,11 @@ When SHOW-ALL is nil, only return the current occurrence of a time stamp."
(setq n0 n1 n1 (min n1 n2) n2 (max n0 n2))
(if show-all
(cond
((eq prefer 'past) n1)
((eq prefer 'past) (if (= cday n2) n2 n1))
((eq prefer 'future) (if (= cday n1) n1 n2))
(t (if (> (abs (- cday n1)) (abs (- cday n2))) n2 n1)))
(cond
((eq prefer 'past) n1)
((eq prefer 'past) (if (= cday n2) n2 n1))
((eq prefer 'future) (if (= cday n1) n1 n2))
(t (if (= cday n1) n1 n2)))))))