diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2011-06-14 10:39:58 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-06-14 10:39:58 +0200 |
commit | 36dd7e21500fabbe2faf3e3bd96a2b7e05f13dae (patch) | |
tree | 746dc5f3c05785a2b81bee801fc953e84d7db511 | |
parent | 1de29a0059e300da5e0245a209f66275c4eb3ec8 (diff) | |
download | org-mode-36dd7e21500fabbe2faf3e3bd96a2b7e05f13dae.tar.gz |
Fix bulk scattering command
* lisp/org-agenda.el (org-agenda-bulk-action): Fix bug caused by
`days-to-time, converting relative to 1 BC, while the code assumed it
would return a time relative to 1970.
For more information, see
http://thread.gmane.org/gmane.emacs.orgmode/42531
-rw-r--r-- | lisp/org-agenda.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 65f37d4..b519ff2 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -8199,9 +8199,11 @@ The prefix arg is passed through to the command if possible." (setq day-of-week 0))))) ;; silently fail when try to replan a sexp entry (condition-case nil - (org-agenda-schedule nil - (days-to-time - (+ (org-today) distance))) + (let* ((date (calendar-gregorian-from-absolute + (+ (org-today) distance))) + (time (encode-time 0 0 0 (nth 1 date) (nth 0 date) + (nth 2 date)))) + (org-agenda-schedule nil time)) (error nil))))))) ((equal action ?f) |