From ced72ea5d8e3d6b57376bdbd5506be2857627b46 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 16 Mar 2012 19:05:26 +0100 Subject: [PATCH] org-agenda.el: Fix the display of indirect agenda window. * org-agenda.el (org-agenda-tree-to-indirect-buffer): Fix the display of indirect agenda window. TINYCHANGE Thanks to Dave Abrahams for a patch to this effect. --- lisp/org-agenda.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 31aa9192a..f2b8fc242 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7290,7 +7290,9 @@ use the dedicated frame)." (if (and current-prefix-arg (listp current-prefix-arg)) (org-agenda-do-tree-to-indirect-buffer) (let ((agenda-window (selected-window)) - (indirect-window (and org-last-indirect-buffer (get-buffer-window org-last-indirect-buffer)))) + (indirect-window + (and org-last-indirect-buffer + (get-buffer-window org-last-indirect-buffer)))) (save-window-excursion (org-agenda-do-tree-to-indirect-buffer)) (unwind-protect (progn @@ -7299,7 +7301,7 @@ use the dedicated frame)." (select-window indirect-window) (switch-to-buffer org-last-indirect-buffer :norecord) (fit-window-to-buffer indirect-window)) - (select-window agenda-window))))) + (select-window (get-buffer-window org-agenda-buffer-name)))))) (defun org-agenda-do-tree-to-indirect-buffer () "Same as `org-agenda-tree-to-indirect-buffer' without saving window." -- 2.11.4.GIT