From 03b178d1205b9658ecfcdce84c054b4126ed4d3b Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 21 Sep 2010 12:56:02 +0200 Subject: [PATCH] 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. --- lisp/org-agenda.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d2d1f75fd..eb8b2390d 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 ()