mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2025-01-20 19:24:20 +00:00
Code

Conditionally delete windows in agenda quit

Browse Source 
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.
This commit is contained in:
Peter Jones 2009-02-27 17:17:12 -07:00 committed by Carsten Dominik
parent c8fdb461d0
commit 8b38105040
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2009-03-01 Carsten Dominik <carsten.dominik@gmail.com>
* org-agenda.el (org-agenda-quit): Delete window only when the
frame-setup was not `current-window'.
* org.el (org-tag-persistent-alist): New option.
(org-startup-options): Add keyword `noptag'.
(org-fast-todo-selection): Handle :newline correctly.

4
lisp/org-agenda.el
View File

@ -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)