mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-07-15 09:46:26 +00:00
widen buffer restrictions when inserting results
This commit is contained in:
parent
c276eeebee
commit
0a6165a555
|
@ -1890,6 +1890,7 @@ code ---- the results are extracted in the syntax of the source
|
||||||
inside of a #+BEGIN_SRC block with the source-code
|
inside of a #+BEGIN_SRC block with the source-code
|
||||||
language set appropriately. Note this relies on the
|
language set appropriately. Note this relies on the
|
||||||
optional LANG argument."
|
optional LANG argument."
|
||||||
|
(save-restriction (widen)
|
||||||
(if (stringp result)
|
(if (stringp result)
|
||||||
(progn
|
(progn
|
||||||
(setq result (org-no-properties result))
|
(setq result (org-no-properties result))
|
||||||
|
@ -2010,7 +2011,7 @@ code ---- the results are extracted in the syntax of the source
|
||||||
(if (member "value" result-params)
|
(if (member "value" result-params)
|
||||||
(message "Code block returned no value.")
|
(message "Code block returned no value.")
|
||||||
(message "Code block produced no output."))
|
(message "Code block produced no output."))
|
||||||
(message "Code block evaluation complete."))))
|
(message "Code block evaluation complete.")))))
|
||||||
|
|
||||||
(defun org-babel-remove-result (&optional info)
|
(defun org-babel-remove-result (&optional info)
|
||||||
"Remove the result of the current source block."
|
"Remove the result of the current source block."
|
||||||
|
|
Loading…
Reference in a new issue