diff options
author | Bastien Guerry <bzg@altern.org> | 2012-12-28 17:20:30 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-12-28 18:37:47 +0100 |
commit | 2792bc11a087a7456fd0f19ace0a98391f02fbbf (patch) | |
tree | 1bd91fcb71f49d206d3868f43abf26841580bb1e | |
parent | 5954ba9a73eee736a0d8dd2103153e06789f44e9 (diff) | |
download | org-mode-2792bc11a087a7456fd0f19ace0a98391f02fbbf.tar.gz |
org-agenda.el: Docstring fixes.
* org-agenda.el (org-agenda-Quit, org-agenda-quit)
(org-agenda-exit, org-agenda-kill-all-agenda-buffers):
Docstring fixes.
-rw-r--r-- | lisp/org-agenda.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ce3a01c..853e581 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6839,8 +6839,9 @@ If ERROR is non-nil, throw an error, otherwise just return nil." (error "Not allowed in %s-type agenda buffers" org-agenda-type) nil)))) -(defun org-agenda-Quit (&optional arg) - "Exit agenda by removing the window or the buffer." +(defun org-agenda-Quit () + "Exit the agenda and kill buffers loaded by `org-agenda'. +Also restore the window configuration." (interactive) (if org-agenda-columns-active (org-columns-quit) @@ -6867,8 +6868,8 @@ If ERROR is non-nil, throw an error, otherwise just return nil." (setq org-agenda-pre-window-conf nil)))) (defun org-agenda-quit () - "Exit agenda by killing agenda buffer or burying it when -`org-agenda-sticky' is non-NIL" + "Exit the agenda and restore the window configuration. +When `org-agenda-sticky' is non-nil, only bury the agenda." (interactive) (if (and (eq org-indirect-buffer-display 'other-window) org-last-indirect-buffer) @@ -6894,9 +6895,9 @@ If ERROR is non-nil, throw an error, otherwise just return nil." (org-agenda-Quit)))) (defun org-agenda-exit () - "Exit agenda by removing the window or the buffer. -Also kill all Org-mode buffers which have been loaded by `org-agenda'. -Org-mode buffers visited directly by the user will not be touched." + "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." (interactive) (org-release-buffers org-agenda-new-buffers) (setq org-agenda-new-buffers nil) @@ -6904,8 +6905,8 @@ Org-mode buffers visited directly by the user will not be touched." (defun org-agenda-kill-all-agenda-buffers () "Kill all buffers in `org-agenda-mode'. -This is used when toggling sticky agendas. You can also explicitly invoke it -with `C-c a C-k'." +This is used when toggling sticky agendas. +You can also explicitly invoke it with `C-c a C-k'." (interactive) (let (blist) (dolist (buf (buffer-list)) |