From b771d4b05ba36be28f4da0cd87ee4a24f33b6ab6 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 1 Aug 2012 16:32:36 +0200 Subject: [PATCH] org-agenda.el: Bugfix for `org-agenda-write'. * org-agenda.el (org-agenda-write): Fix bug when writing agenda to an external file while `org-agenda-sticky' is non-nil. --- lisp/org-agenda.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index d62b9686b..a30842020 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3012,7 +3012,9 @@ If AGENDA-BUFFER-NAME, use this as the buffer name for the agenda to write." (save-buffer 0) (kill-buffer (current-buffer)) (message "Plain text written to %s" file)))))))) - (set-buffer (or agenda-bufname org-agenda-buffer-name))) + (set-buffer (or agenda-bufname + (and (called-interactively-p 'any) (buffer-name)) + org-agenda-buffer-name))) (when open (org-open-file file))) (defvar org-agenda-tag-filter-overlays nil)