>From 6af4d934882720e36228c4b7cc3013829e9bab0b Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 2 Jan 2015 17:38:30 -0500 Subject: [PATCH 3/5] 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. --- lisp/org-agenda.el | 4 ---- 1 file changed, 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 @@ (defun org-agenda-Quit () (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. -- 2.2.1