From: Muchenxuan Tong <demon386@gmail.com>
Date: Tue, 22 Jan 2013 13:14:08 +0000 (+0100)
Subject: org-agenda.el (org-agenda-quit): Delete indirect buffer's window only when it exists
X-Git-Tag: 7.9.3e~27
X-Git-Url: https://repo.or.cz/w/org-mode.git/commitdiff_plain/5b20c9a30e4714e72fe253914712001528f662b6

org-agenda.el (org-agenda-quit): Delete indirect buffer's window only when it exists

* org-agenda.el (org-agenda-quit): Delete indirect buffer's window
only when it exists.

When indirect buffer's window doesn't exist, the original logic will
delete the current window.

TINYCHANGE
---

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index cefdc0e41..5e11358fd 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6893,7 +6893,10 @@ Allowed types are 'agenda 'timeline 'todo 'tags 'search."
   (interactive)
   (if (and (eq org-indirect-buffer-display 'other-window)
 	   org-last-indirect-buffer)
-      (delete-window (get-buffer-window org-last-indirect-buffer)))
+      (let ((org-last-indirect-window
+	     (get-buffer-window org-last-indirect-buffer)))
+	(if org-last-indirect-window
+	    (delete-window org-last-indirect-window))))
   (if org-agenda-columns-active
       (org-columns-quit)
     (if org-agenda-sticky