From f4984b32058ea4deadb8354f2685e32bf86cc73e Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Mon, 17 Jan 2011 22:11:11 +0000 Subject: [PATCH] Bug: Jumping to a date in the agenda changes view back to 'day' [7.4 (release_7.4.80.g0e5e5)] On Mon, Jan 17 2011, Bernt Hansen wrote: > > Thanks for this patch. I think this fixes the issue I was having with > 'j' in the agenda switching from week-view back to single-day view when > org-agenda-ndays is set to 1. > > There is still a (new?) problem with jumping to today. > > Set the following variable > > (setq org-agenda-start-on-weekday 6) > > | Key Sequence | Notes | > |--------------+------------------------------------------------| > | C-c a a | Display weekly agenda | > | f | Go forward a week | > | d | Display day agenda | > | . | Go to to day - but it goes to Saturday instead | > > This should go to today and not the first day of the week. Attached is a fix for that. >From f566a5612560f997f4760144ca850dda5c06bc5e Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Mon, 17 Jan 2011 18:09:30 +0100 Subject: [PATCH] Fix org-agenda-goto-today not respecting the current span. * org-agenda.el (org-agenda-goto-today): Respect current span. Signed-off-by: Julien Danjou --- lisp/org-agenda.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 0cd620ce7..f431a42f5 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6101,7 +6101,7 @@ Negative selection means regexp must not match for selection of an entry." (tdpos (goto-char tdpos)) ((eq org-agenda-type 'agenda) (let* ((sd (org-agenda-compute-starting-span - (org-today) (or org-agenda-ndays org-agenda-span))) + (org-today) (or org-agenda-current-span 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)