diff options
author | Aaron Ecay <aaronecay@gmail.com> | 2013-03-31 18:17:16 -0400 |
---|---|---|
committer | Aaron Ecay <aaronecay@gmail.com> | 2013-04-21 23:45:27 -0400 |
commit | 7263b326d4bf70f28cae3f127165cd05a5ee7614 (patch) | |
tree | ea07cc3b40b981bb36ef5c1e2ab1763068e7140f | |
parent | 9969d3feeb1b29bf6f9acfaf83abafcf9997c230 (diff) | |
download | org-mode-7263b326d4bf70f28cae3f127165cd05a5ee7614.tar.gz |
Add 'light argument to some uses of org-babel-get-src-block-info
* lisp/ob-core.el (org-babel-do-key-sequence-in-edit-buffer)
(org-babel-expand-noweb-references)
* lisp/ob-tangle.el (org-babel-tangle): Use 'light argument to
`org-babel-get-src-block-info'.
-rw-r--r-- | lisp/ob-core.el | 4 | ||||
-rw-r--r-- | lisp/ob-tangle.el | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el index 09b6bb4..a89c550 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -919,7 +919,7 @@ source code block, otherwise return nil. With optional prefix argument RE-RUN the source-code block is evaluated even if results already exist." (interactive "P") - (let ((info (org-babel-get-src-block-info))) + (let ((info (org-babel-get-src-block-info 'light))) (when info (save-excursion ;; go to the results, if there aren't any then run the block @@ -2365,7 +2365,7 @@ would set the value of argument \"a\" equal to \"9\". Note that these arguments are not evaluated in the current source-code block but are passed literally to the \"example-block\"." (let* ((parent-buffer (or parent-buffer (current-buffer))) - (info (or info (org-babel-get-src-block-info))) + (info (or info (org-babel-get-src-block-info 'light))) (lang (nth 0 info)) (body (nth 1 info)) (ob-nww-start org-babel-noweb-wrap-start) diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index f15567f..25dcb91 100644 --- a/lisp/ob-tangle.el +++ b/lisp/ob-tangle.el @@ -185,7 +185,7 @@ used to limit the exported source code blocks by language." org-babel-default-header-args)) (tangle-file (when (equal arg '(16)) - (or (cdr (assoc :tangle (nth 2 (org-babel-get-src-block-info)))) + (or (cdr (assoc :tangle (nth 2 (org-babel-get-src-block-info 'light)))) (user-error "Point is not in a source code block")))) path-collector) (mapc ;; map over all languages |