[Accepted] [Orgmode] Re: Bug: Jumping to a date in the agenda changes view back to 'day' [7.4 (release_7.4.80.g0e5e5)]

[Bastien Guerry]

Patch 544 (http://patchwork.newartisans.com/patch/544/) is now "Accepted".

Maintainer comment: none

This relates to the following submission:

http://mid.gmane.org/%3Csa3mxmzv4k0.fsf%40cigue.easter-eggs.fr%3E

Here is the original message containing the patch:

> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [Orgmode] Re: Bug: Jumping to a date in the agenda changes view back
>       to 'day' [7.4 (release_7.4.80.g0e5e5)]
> Date: Mon, 17 Jan 2011 22:11:11 -0000
> From: Julien Danjou <address@hidden>
> X-Patchwork-Id: 544
> Message-Id: <address@hidden>
> To: Bernt Hansen <address@hidden>
> Cc: Org Mode <address@hidden>, Noorul Islam K M <address@hidden>, 
>       Carsten Dominik <address@hidden>
> 
> 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 <address@hidden>
> 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 <address@hidden>
> ---
>  lisp/org-agenda.el |    2 +-
>  1 files changed, 1 insertions(+), 1 deletions(-)
> 
> diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
> index 0d695b5..241ed30 100644
> --- a/lisp/org-agenda.el
> +++ b/lisp/org-agenda.el
> @@ -6104,7 +6104,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)
> -- 
> 1.7.2.3
> 
>