summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2010-10-17 08:32:23 +0200
committerCarsten Dominik <carsten.dominik@gmail.com>2010-10-17 08:32:23 +0200
commitc9bb51e8832e48c054bec7bb6f210fd86ff90796 (patch)
tree81ee9d7486c038c8c0a868f6dd9d444ed6f7cac7
parentc40247d4dd2beb8bd6761cb0e40fce2c404f37f6 (diff)
downloadorg-mode-c9bb51e8832e48c054bec7bb6f210fd86ff90796.tar.gz
Make it configurable wether agenda jumping prefers the future
* lisp/org.el (org-agenda-jump-prefer-future): New option. * lisp/org-agenda.el (org-agenda-goto-date): Use `org-agenda-jump-prefer-future'.
-rw-r--r--lisp/org-agenda.el3
-rw-r--r--lisp/org.el17
2 files changed, 18 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 49e0aa6..ede62e8 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -5823,7 +5823,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 (let ((org-read-date-prefer-future nil))
+ (interactive (list (let ((org-read-date-prefer-future
+ (eval org-agenda-jump-prefer-future)))
(org-read-date))))
(org-agenda-list nil date))
diff --git a/lisp/org.el b/lisp/org.el
index 258d129..17bce25 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -2595,13 +2595,28 @@ will work:
Currently none of this works for ISO week specifications.
When this option is nil, the current day, month and year will always be
-used as defaults."
+used as defaults.
+
+See also `org-agenda-jump-prefer-future'."
:group 'org-time
:type '(choice
(const :tag "Never" nil)
(const :tag "Check month and day" t)
(const :tag "Check month, day, and time" time)))
+(defcustom org-agenda-jump-prefer-future 'org-read-date-prefer-future
+ "Should the agenda jump command prefer the future for incomplete dates?
+The default is to do the same as configured in `org-read-date-prefer-future'.
+But you can alse set a deviating value here.
+This may t or nil, or the symbol `org-read-date-prefer-future'."
+ :group 'org-agenda
+ :group 'org-time
+ :type '(choice
+ (const :tag "Use org-aread-date-prefer-future"
+ org-read-date-prefer-future)
+ (const :tag "Never" nil)
+ (const :tag "Always" t)))
+
(defcustom org-read-date-display-live t
"Non-nil means display current interpretation of date prompt live.
This display will be in an overlay, in the minibuffer."