From mboxrd@z Thu Jan 1 00:00:00 1970 From: Peter Jones Subject: [PATCH] Conditionally delete windows in agenda quit Date: Fri, 27 Feb 2009 17:21:08 -0700 Message-ID: Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1LdCxI-0001aC-VK for emacs-orgmode@gnu.org; Fri, 27 Feb 2009 19:21:24 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1LdCxF-0001Up-26 for emacs-orgmode@gnu.org; Fri, 27 Feb 2009 19:21:23 -0500 Received: from [199.232.76.173] (port=38283 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1LdCxE-0001Uc-Tw for emacs-orgmode@gnu.org; Fri, 27 Feb 2009 19:21:20 -0500 Received: from main.gmane.org ([80.91.229.2]:41530 helo=ciao.gmane.org) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1LdCxE-0002wJ-IY for emacs-orgmode@gnu.org; Fri, 27 Feb 2009 19:21:20 -0500 Received: from list by ciao.gmane.org with local (Exim 4.43) id 1LdCxD-00030z-8a for emacs-orgmode@gnu.org; Sat, 28 Feb 2009 00:21:19 +0000 Received: from c-67-177-235-141.hsd1.co.comcast.net ([67.177.235.141]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 28 Feb 2009 00:21:19 +0000 Received: from mlists by c-67-177-235-141.hsd1.co.comcast.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sat, 28 Feb 2009 00:21:19 +0000 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= Before this patch, org-agenda-quit would delete the agenda window if the frame had more than one window. This patch changes that behavior slightly so that if org-agenda-window-setup is 'current-window, the agenda window won't be deleted. Patch also available from: git://pmade.com/org-mode branch: pjones-agenda-quit --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=agenda.patch >From 94a5f5f9487a2ccdd4d38d1b989720a89d1d10b6 Mon Sep 17 00:00:00 2001 From: Peter Jones Date: Fri, 27 Feb 2009 17:17:12 -0700 Subject: [PATCH] Conditionally delete windows in agenda quit Before this patch, org-agenda-quit would delete the agenda window if the frame had more than one window. This patch changes that behavior slightly so that if org-agenda-window-setup is 'current-window, the agenda window won't be deleted. --- lisp/org-agenda.el | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 3fb7baf..dbfa5f6 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -4455,7 +4455,9 @@ If ERROR is non-nil, throw an error, otherwise just return nil." (if org-agenda-columns-active (org-columns-quit) (let ((buf (current-buffer))) - (if (not (one-window-p)) (delete-window)) + (and (not (eq org-agenda-window-setup 'current-window)) + (not (one-window-p)) + (delete-window)) (kill-buffer buf) (org-agenda-reset-markers) (org-columns-remove-overlays) -- 1.6.0 --=-=-= -- Peter Jones, http://pmade.com pmade inc. Louisville, CO US --=-=-= Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode --=-=-=--