From: Bastien Guerry <bzg@altern.org>
Date: Thu, 25 Apr 2013 05:30:04 +0000 (+0200)
Subject: Use `org-called-interactively-p' instead of `called-interactively-p'
X-Git-Tag: release_8.0.2~8
X-Git-Url: https://repo.or.cz/w/org-mode.git/commitdiff_plain/dcb0ac48a8010ac4dba24ac1fed745f1cf2b3133

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.
---

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index f11836d59..55d8f458f 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 754247afd..1fd9ee88a 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)