diff options
author | Kyle Meyer <kyle@kyleam.com> | 2015-01-02 17:38:30 -0500 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-01-03 12:15:58 +0100 |
commit | b4b6584eea27b5c1d25572ec957c49c77051ec72 (patch) | |
tree | 91817eaed1a29c1a0a87b0e400ef23e73882234f | |
parent | 722a574d88bc6f2bc9a9abf9a2d80f5be679c2b2 (diff) | |
download | org-mode-b4b6584eea27b5c1d25572ec957c49c77051ec72.tar.gz |
org-agenda-Quit: Remove unnecessary function calls
* lisp/org-agenda.el (org-agenda-Quit): Remove unnecessary function calls.
- org-agenda-Quit turns off column view if it is active, instead of
killing the agenda buffer, so there is no need to call
org-columns-remove-overlays when killing the buffer.
- org-agenda-reset-markers is already called when the kill-buffer-hook
is run.
-rw-r--r-- | lisp/org-agenda.el | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 1446d21..2fbfacc 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7182,17 +7182,13 @@ Like `org-agenda-quit', but kill the buffer even when (let ((buf (current-buffer))) (if (eq org-agenda-window-setup 'other-frame) (progn - (org-agenda-reset-markers) (kill-buffer buf) - (org-columns-remove-overlays) (setq org-agenda-archives-mode nil) (delete-frame)) (and (not (eq org-agenda-window-setup 'current-window)) (not (one-window-p)) (delete-window)) - (org-agenda-reset-markers) (kill-buffer buf) - (org-columns-remove-overlays) (setq org-agenda-archives-mode nil))) (setq org-agenda-buffer nil) ;; Maybe restore the pre-agenda window configuration. |