Backwards compatibility: use compatibility macro

* lisp/org-agenda.el (org-agenda-write): Use
  org-called-interactively-p instead of called-interactively-p.
This commit is contained in:
Achim Gratz 2012-12-19 15:30:23 +01:00
parent 9a71174348
commit bdc95549dd
1 changed files with 1 additions and 1 deletions

View File

@ -3194,7 +3194,7 @@ If AGENDA-BUFFER-NAME, use this as the buffer name for the agenda to write."
(kill-buffer (current-buffer))
(message "Plain text written to %s" file))))))))
(set-buffer (or agenda-bufname
(and (called-interactively-p 'any) (buffer-name))
(and (org-called-interactively-p 'any) (buffer-name))
org-agenda-buffer-name)))
(when open (org-open-file file)))