diff options
| author | Bastien Guerry <bzg@altern.org> | 2012-03-16 19:05:26 +0100 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2012-03-16 19:05:26 +0100 |
| commit | ced72ea5d8e3d6b57376bdbd5506be2857627b46 (patch) | |
| tree | 7a7a6fe0136c09e54031e06971a5d135886cdfb1 | |
| parent | 150e2db668e98e911c3af7dcde91bd9303b035ae (diff) | |
| download | org-mode-ced72ea5d8e3d6b57376bdbd5506be2857627b46.tar.gz | |
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.
| -rw-r--r-- | lisp/org-agenda.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 31aa919..f2b8fc2 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." |