|
@@ -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)))))
|
|
|
|