diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-10-17 08:32:23 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-10-17 08:32:23 +0200 |
commit | c9bb51e8832e48c054bec7bb6f210fd86ff90796 (patch) | |
tree | 81ee9d7486c038c8c0a868f6dd9d444ed6f7cac7 | |
parent | c40247d4dd2beb8bd6761cb0e40fce2c404f37f6 (diff) | |
download | org-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.el | 3 | ||||
-rw-r--r-- | lisp/org.el | 17 |
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." |