|
@@ -7173,8 +7173,9 @@ Allowed types are 'agenda 'timeline 'todo 'tags 'search."
|
|
|
nil))))
|
|
|
|
|
|
(defun org-agenda-Quit ()
|
|
|
- "Exit the agenda and kill buffers loaded by `org-agenda'.
|
|
|
-Also restore the window configuration."
|
|
|
+ "Exit the agenda, killing the agenda buffer.
|
|
|
+Like `org-agenda-quit', but kill the buffer even when
|
|
|
+`org-agenda-sticky' is non-nil."
|
|
|
(interactive)
|
|
|
(if org-agenda-columns-active
|
|
|
(org-columns-quit)
|
|
@@ -7202,8 +7203,16 @@ Also restore the window configuration."
|
|
|
(setq org-agenda-pre-window-conf nil))))
|
|
|
|
|
|
(defun org-agenda-quit ()
|
|
|
- "Exit the agenda and restore the window configuration.
|
|
|
-When `org-agenda-sticky' is non-nil, only bury the agenda."
|
|
|
+ "Exit the agenda.
|
|
|
+
|
|
|
+When `org-agenda-sticky' is non-nil, bury the agenda buffer
|
|
|
+instead of killing it.
|
|
|
+
|
|
|
+When `org-agenda-restore-windows-after-quit' is non-nil, restore
|
|
|
+the pre-agenda window configuration.
|
|
|
+
|
|
|
+When column view is active, exit column view instead of the
|
|
|
+agenda."
|
|
|
(interactive)
|
|
|
(if (and (eq org-indirect-buffer-display 'other-window)
|
|
|
org-last-indirect-buffer)
|
|
@@ -7232,9 +7241,10 @@ When `org-agenda-sticky' is non-nil, only bury the agenda."
|
|
|
(org-agenda-Quit))))
|
|
|
|
|
|
(defun org-agenda-exit ()
|
|
|
- "Exit the agenda and restore the window configuration.
|
|
|
-Also kill Org-mode buffers loaded by `org-agenda'. Org-mode
|
|
|
-buffers visited directly by the user will not be touched."
|
|
|
+ "Exit the agenda, killing Org buffers loaded by the agenda.
|
|
|
+Like `org-agenda-Quit', but kill any buffers that were created by
|
|
|
+the agenda. Org buffers visited directly by the user will not be
|
|
|
+touched."
|
|
|
(interactive)
|
|
|
(org-release-buffers org-agenda-new-buffers)
|
|
|
(setq org-agenda-new-buffers nil)
|