>From eda6e1d681ba11d427fe37cfe8af966e82ebab2d Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 2 Jan 2015 17:38:19 -0500 Subject: [PATCH 1/5] org-agenda: Fix exiting function docstrings * lisp/org-agenda.el (org-agenda-Quit): * lisp/org-agenda.el (org-agenda-quit): * lisp/org-agenda.el (org-agenda-exit): Correct and expand docstrings. --- lisp/org-agenda.el | 24 +++++++++++++++++------- 1 file changed, 17 insertions(+), 7 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 5990bbb..49eb07b 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7173,8 +7173,9 @@ (defun org-agenda-check-type (error &rest types) 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 @@ (defun org-agenda-Quit () (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 @@ (defun org-agenda-quit () (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) -- 2.2.1