Browse Source

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.
Carsten Dominik 10 years ago
parent
commit
03b178d120
1 changed files with 2 additions and 1 deletions
  1. 2 1
      lisp/org-agenda.el

+ 2 - 1
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 ()