diff options
author | Bastien Guerry <bzg@altern.org> | 2011-12-28 18:07:35 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-12-28 18:07:35 +0100 |
commit | 81f907c9f92c0bf15750685b7ef56b1513e3b7c4 (patch) | |
tree | 339a5be4cb76c919c9c6e884014499cd972c5291 | |
parent | 371b0cf9aa57428168f22f3005652b3b97c51c8b (diff) | |
download | org-mode-81f907c9f92c0bf15750685b7ef56b1513e3b7c4.tar.gz |
New variable `org-agenda-write-buffer-name'.
* org-agenda.el (org-agenda-write-buffer-name): New variable.
(org-write-agenda): Use it.
Setting this variable through `org-agenda-exporter-settings' can
be useful -- thanks to Konstantin Ziegler for mentioning this need.
-rw-r--r-- | lisp/org-agenda.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 780794e..f53f012 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -2766,6 +2766,7 @@ This ensures the export commands can easily use it." 'org-agenda-title-append org-agenda-title-append)))) (defvar org-mobile-creating-agendas) +(defvar org-agenda-write-buffer-name "Agenda View") (defun org-write-agenda (file &optional open nosettings) "Write the current buffer (an agenda view) as a file. Depending on the extension of the file name, plain text (.txt), @@ -2788,7 +2789,7 @@ higher priority settings." (let ((bs (copy-sequence (buffer-string))) beg) (org-agenda-unmark-filtered-text) (with-temp-buffer - (rename-buffer "Agenda View" t) + (rename-buffer org-agenda-write-buffer-name t) (set-buffer-modified-p nil) (insert bs) (org-agenda-remove-marked-text 'org-filtered) |