summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2010-09-21 12:56:02 +0200
committerCarsten Dominik <carsten.dominik@gmail.com>2010-09-21 12:56:02 +0200
commit03b178d1205b9658ecfcdce84c054b4126ed4d3b (patch)
tree98779bf9be0c615f7a4f4fae789e55a81e03db24
parent7fc897de7096daa7b7392443072c983aaf75d71c (diff)
downloadorg-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.el3
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 ()