Browse Source

org-agenda: Refactoring

* lisp/org-agenda.el(org-agenda--quit): Removed an unnecessary variable.
Marco Wahl 9 years ago
parent
commit
700b8e70f6
1 changed files with 2 additions and 3 deletions
  1. 2 3
      lisp/org-agenda.el

+ 2 - 3
lisp/org-agenda.el

@@ -7232,8 +7232,7 @@ agenda."
 (defun org-agenda--quit (&optional bury)
   (if org-agenda-columns-active
       (org-columns-quit)
-    (let ((buf (current-buffer))
-	  (wconf org-agenda-pre-window-conf)
+    (let ((wconf org-agenda-pre-window-conf)
 	  (org-agenda-last-indirect-window
 	   (and (eq org-indirect-buffer-display 'other-window)
 		org-agenda-last-indirect-buffer
@@ -7256,7 +7255,7 @@ agenda."
 	     (delete-window))))
       (if bury
 	  (bury-buffer)
-	(kill-buffer buf)
+	(kill-buffer)
 	(setq org-agenda-archives-mode nil
 	      org-agenda-buffer nil)))))