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.
This commit is contained in:
Carsten Dominik 2010-09-21 12:56:02 +02:00
parent 7fc897de70
commit 03b178d120
1 changed files with 2 additions and 1 deletions

View File

@ -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 ()