Use `org-called-interactively-p' instead of `called-interactively-p'
authorBastien Guerry <bzg@altern.org>
Thu, 25 Apr 2013 05:30:04 +0000 (07:30 +0200)
committerBastien Guerry <bzg@altern.org>
Thu, 25 Apr 2013 05:30:04 +0000 (07:30 +0200)
* 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.

lisp/ob-core.el
lisp/org-agenda.el

index f11836d..55d8f45 100644 (file)
@@ -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 " ]*"))
index 754247a..1fd9ee8 100644 (file)
@@ -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)