diff options
| author | Achim Gratz <Stromeko@Stromeko.DE> | 2013-04-10 20:28:31 +0200 |
|---|---|---|
| committer | Achim Gratz <Stromeko@Stromeko.DE> | 2013-04-13 08:06:58 +0200 |
| commit | 56bf3d789146fcd3c9f82d875de28c394fe593a0 (patch) | |
| tree | 3e92303eda5cffecb17ccf9fbc9d8d4516ea6f64 | |
| parent | 300932055ce73466ce883af566b6b6a015ff1df0 (diff) | |
| download | org-mode-56bf3d789146fcd3c9f82d875de28c394fe593a0.tar.gz | |
Babel: avoid superfluous confirmation for internal wrapper
* lisp/ob-exp.el (org-babel-exp-results): Suppress user confirmation
of the emacs-lisp wrapper execution around a lob call.
* lisp/ob-lob.el (org-babel-lob-execute): Suppress user confirmation
of the emacs-lisp wrapper execution around a lob call.
| -rw-r--r-- | lisp/ob-exp.el | 3 | ||||
| -rw-r--r-- | lisp/ob-lob.el | 5 |
2 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el index e74b803..664a52b 100644 --- a/lisp/ob-exp.el +++ b/lisp/ob-exp.el @@ -411,7 +411,8 @@ inhibit insertion of results into the buffer." ((equal type 'lob) (save-excursion (re-search-backward org-babel-lob-one-liner-regexp nil t) - (org-babel-execute-src-block nil info))))))))) + (let (org-confirm-babel-evaluate) + (org-babel-execute-src-block nil info)))))))))) (provide 'ob-exp) diff --git a/lisp/ob-lob.el b/lisp/ob-lob.el index 40e4a2a..802aa60 100644 --- a/lisp/ob-lob.el +++ b/lisp/ob-lob.el @@ -137,8 +137,9 @@ if so then run the appropriate source block from the Library." (save-excursion (goto-char (org-babel-where-is-src-block-result)) (forward-line 1) (message "%S" (org-babel-read-result))) - (prog1 (org-babel-execute-src-block - nil (funcall mkinfo (org-babel-process-params pre-params))) + (prog1 (let* ((proc-params (org-babel-process-params pre-params)) + org-confirm-babel-evaluate) + (org-babel-execute-src-block nil (funcall mkinfo proc-params))) ;; update the hash (when new-hash (org-babel-set-current-result-hash new-hash)))))) |