summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-04-25 07:30:04 +0200
committerBastien Guerry <bzg@altern.org>2013-04-25 07:30:04 +0200
commitdcb0ac48a8010ac4dba24ac1fed745f1cf2b3133 (patch)
tree6e03c212dcad0cb3c18dc4d55471aea3a0c26502
parent0e4a4c452e91971645a58851d7522322a9a83fd7 (diff)
downloadorg-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.el2
-rw-r--r--lisp/org-agenda.el2
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)