summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCarsten Dominik <carsten.dominik@gmail.com>2010-12-03 23:37:55 +0100
committerCarsten Dominik <carsten.dominik@gmail.com>2010-12-03 23:37:55 +0100
commite10e6197e77ca77953f04785ddc4493df6b96fef (patch)
treedda3a6a60e13187d3069f3502c0f2fd639c28600
parent316e7e5fbc70f209826d030bde7238a0662acbb4 (diff)
downloadorg-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.el5
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)