diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-09-21 12:56:02 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-09-21 12:56:02 +0200 |
commit | 03b178d1205b9658ecfcdce84c054b4126ed4d3b (patch) | |
tree | 98779bf9be0c615f7a4f4fae789e55a81e03db24 | |
parent | 7fc897de7096daa7b7392443072c983aaf75d71c (diff) | |
download | org-mode-03b178d1205b9658ecfcdce84c054b4126ed4d3b.tar.gz |
Do not prefer future when jumping to a date in the agenda
* lisp/org-agenda.el (org-agenda-goto-date): Turn off prefer future
for this command.
-rw-r--r-- | lisp/org-agenda.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d2d1f75..eb8b239 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5809,7 +5809,8 @@ Negative selection means regexp must not match for selection of an entry." (defun org-agenda-goto-date (date) "Jump to DATE in agenda." - (interactive (list (org-read-date))) + (interactive (list (let ((org-read-date-prefer-future nil)) + (org-read-date)))) (org-agenda-list nil date)) (defun org-agenda-goto-today () |