diff options
author | Bastien Guerry <bzg@altern.org> | 2013-04-25 07:30:04 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-04-25 07:30:04 +0200 |
commit | dcb0ac48a8010ac4dba24ac1fed745f1cf2b3133 (patch) | |
tree | 6e03c212dcad0cb3c18dc4d55471aea3a0c26502 | |
parent | 0e4a4c452e91971645a58851d7522322a9a83fd7 (diff) | |
download | org-mode-dcb0ac48a8010ac4dba24ac1fed745f1cf2b3133.tar.gz |
Use `org-called-interactively-p' instead of `called-interactively-p'
* org-agenda.el (org-agenda-write):
* ob-core.el (org-babel-expand-src-block): Use
`org-called-interactively-p'.
Thanks to Jason L Wright for reporting this.
-rw-r--r-- | lisp/ob-core.el | 2 | ||||
-rw-r--r-- | lisp/org-agenda.el | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el index f11836d..55d8f45 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -680,7 +680,7 @@ arguments and pop open the results in a preview buffer." (org-babel-expand-body:generic body params (and (fboundp assignments-cmd) (funcall assignments-cmd params)))))) - (if (called-interactively-p 'any) + (if (org-called-interactively-p 'any) (org-edit-src-code nil expanded (concat "*Org-Babel Preview " (buffer-name) "[ " lang " ]*")) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 754247a..1fd9ee8 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -3307,7 +3307,7 @@ If AGENDA-BUFFER-NAME, use this as the buffer name for the agenda to write." (interactive "FWrite agenda to file: \nP") (if (or (not (file-writable-p file)) (and (file-exists-p file) - (if (called-interactively-p 'any) + (if (org-called-interactively-p 'any) (not (y-or-n-p (format "Overwrite existing file %s? " file)))))) (user-error "Cannot write agenda to file %s" file)) (org-let (if nosettings nil org-agenda-exporter-settings) |