summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJulien Danjou <julien@danjou.info>2011-01-17 22:11:11 +0000
committerBastien Guerry <bzg@altern.org>2011-01-17 19:27:09 +0100
commitf4984b32058ea4deadb8354f2685e32bf86cc73e (patch)
treeea43ed252c92ddd57bc8312e2a8fd97e472c076c
parentce131e286c0fd96cf9680573593b0e4c7d511291 (diff)
downloadorg-mode-f4984b32058ea4deadb8354f2685e32bf86cc73e.tar.gz
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 <julien@danjou.info> 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 <julien@danjou.info>
-rw-r--r--lisp/org-agenda.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 0cd620c..f431a42 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)