Agenda: Keep window setup when calling org-agenda from within agenda buffer

lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-08-29  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org-agenda.el (org-agenda): Keep window setup when calling
+	agenda from within agenda window.
+
 	* org-latex.el (org-export-latex-tables): Fix
 	`org-table-last-alignment' and `org-table-last-column-widths' if
 	the first column has been removed.

lisp/org-agenda.el

@@ -1664,6 +1664,10 @@ Pressing `<' twice means to restrict to the current subtree or region
   (interactive "P")
   (catch 'exit
     (let* ((prefix-descriptions nil)
+	   (org-agenda-window-setup (if (equal (buffer-name)
+					       org-agenda-buffer-name)
+					'current-window
+				      org-agenda-window-setup))
 	   (org-agenda-custom-commands-orig org-agenda-custom-commands)
 	   (org-agenda-custom-commands
 	    ;; normalize different versions