diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2010-12-03 23:37:55 +0100 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2010-12-03 23:37:55 +0100 |
commit | e10e6197e77ca77953f04785ddc4493df6b96fef (patch) | |
tree | dda3a6a60e13187d3069f3502c0f2fd639c28600 | |
parent | 316e7e5fbc70f209826d030bde7238a0662acbb4 (diff) | |
download | org-mode-e10e6197e77ca77953f04785ddc4493df6b96fef.tar.gz |
Fix forgotten function renaming
* lisp/org-agenda.el (org-agenda-list):
(org-agenda-goto-today): Use `org-today'.
-rw-r--r-- | lisp/org-agenda.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d20bf69..6ae6c02 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3409,7 +3409,7 @@ given in `org-agenda-start-on-weekday'." (org-compile-prefix-format 'agenda) (org-set-sorting-strategy 'agenda) (let* ((span (org-agenda-ndays-to-span (or span org-agenda-ndays org-agenda-span))) - (today (org-agenda-today)) + (today (org-today)) (sd (or start-day today)) (ndays (org-agenda-span-to-ndays span sd)) (org-agenda-start-on-weekday @@ -6038,7 +6038,8 @@ Negative selection means regexp must not match for selection of an entry." (cond (tdpos (goto-char tdpos)) ((eq org-agenda-type 'agenda) - (let* ((sd (org-agenda-compute-starting-span (org-agenda-today) (or org-agenda-ndays org-agenda-span))) + (let* ((sd (org-agenda-compute-starting-span + (org-today) (or org-agenda-ndays org-agenda-span))) (org-agenda-overriding-arguments org-agenda-last-arguments)) (setf (nth 1 org-agenda-overriding-arguments) sd) (org-agenda-redo) |