From mboxrd@z Thu Jan 1 00:00:00 1970 From: Dave Abrahams Subject: bugfix for org-agenda-follow-indirect Date: Sun, 05 Feb 2012 19:27:48 -1000 Message-ID: Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([140.186.70.92]:56177) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RuHES-0001vM-80 for emacs-orgmode@gnu.org; Mon, 06 Feb 2012 00:35:19 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RuHEO-0001j2-EW for emacs-orgmode@gnu.org; Mon, 06 Feb 2012 00:35:16 -0500 Received: from plane.gmane.org ([80.91.229.3]:56843) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RuHEO-0001ix-5V for emacs-orgmode@gnu.org; Mon, 06 Feb 2012 00:35:12 -0500 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1RuHEJ-00085G-VK for emacs-orgmode@gnu.org; Mon, 06 Feb 2012 06:35:07 +0100 Received: from inngate01.oceanic.net ([205.172.16.184]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 06 Feb 2012 06:35:07 +0100 Received: from dave by inngate01.oceanic.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 06 Feb 2012 06:35:07 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Please try/apply enclosed patch: --8<---------------cut here---------------start------------->8--- --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=agenda-fix.patch diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 780794e..3ae5e0c 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7202,16 +7202,17 @@ 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 (get-buffer-window org-last-indirect-buffer))) + (indirect-window + (get-buffer-window org-last-indirect-buffer))) (save-window-excursion (org-agenda-do-tree-to-indirect-buffer)) (unwind-protect - (progn - (unless indirect-window + (progn + (unless (window-live-p indirect-window) (setq indirect-window (split-window agenda-window))) (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." --=-=-= Content-Type: text/plain --8<---------------cut here---------------end--------------->8--- -- Dave Abrahams BoostPro Computing http://www.boostpro.com --=-=-=--