From mboxrd@z Thu Jan  1 00:00:00 1970
From: mega@retes.hu (=?utf-8?Q?G=C3=A1bor?= Melis)
Subject: resetting the span in agenda (current git version)
Date: Sun, 13 Feb 2011 13:58:20 +0100
Message-ID: <87pqqw6qhf.fsf@retes.hu>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from [140.186.70.92] (port=51617 helo=eggs.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1PobX1-0008Uj-2J
	for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:58:27 -0500
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <melis.gabor@gmail.com>) id 1PobX0-0001K2-7p
	for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:58:27 -0500
Received: from mail-bw0-f41.google.com ([209.85.214.41]:49841)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <melis.gabor@gmail.com>) id 1PobWz-0001Jk-W3
	for emacs-orgmode@gnu.org; Sun, 13 Feb 2011 07:58:26 -0500
Received: by bwz16 with SMTP id 16so4612702bwz.0
	for <emacs-orgmode@gnu.org>; Sun, 13 Feb 2011 04:58:23 -0800 (PST)
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

On the current master branch, it seems to me that doing anything that
ends up calling org-agenda-redo resets the span (most often pressing g,
l, R for me). I papered over the damage with this for l and R, but it is
obviously not the right fix:

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index aea7291..34d71d1 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6420,7 +6420,11 @@ agenda filter."
       (setq org-agenda-clockreport-mode 'with-filter)
     (setq org-agenda-clockreport-mode (not org-agenda-clockreport-mode)))
   (org-agenda-set-mode-name)
-  (org-agenda-redo)
+  (let* ((sd (org-agenda-compute-starting-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))
   (message "Clocktable mode is %s"
 	   (if org-agenda-clockreport-mode "on" "off")))
 
@@ -6437,7 +6441,11 @@ With a double `C-u' prefix arg, show *only* log items, nothing else."
 	  (if special '(closed clock state)
 	    (not org-agenda-show-log))))
   (org-agenda-set-mode-name)
-  (org-agenda-redo)
+  (let* ((sd (org-agenda-compute-starting-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))
   (message "Log mode is %s"
 	   (if org-agenda-show-log "on" "off")))

 
Cheers,
Gabor Melis