Re: [O] [PATCH 04/10] Add 'light argument to some uses of org-babel-get-src-block-info
Hi Eric, 2013ko apirilak 20an, Eric Schulte-ek idatzi zuen: Then please go ahead and apply this patch (or re-send it to me and I can apply it). Done. :) -- Aaron Ecay
Re: [O] [PATCH 04/10] Add 'light argument to some uses of org-babel-get-src-block-info
Aaron Ecay aarone...@gmail.com writes: Hi Eric, 2013ko apirilak 3an, Eric Schulte-ek idatzi zuen: Aaron Ecay aarone...@gmail.com writes: * 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'. I'd like to apply this patch, however tracing the effects of these changes can be tricky and `org-babel-expand-noweb-references' and `org-babel-tangle' are both core functions. Have you run the test suite to confirm that these changes don't break any existing tests? The test suite gives no failures with this patch. Then please go ahead and apply this patch (or re-send it to me and I can apply it). Cheers, -- Eric Schulte http://cs.unm.edu/~eschulte
Re: [O] [PATCH 04/10] Add 'light argument to some uses of org-babel-get-src-block-info
Hi Eric, 2013ko apirilak 3an, Eric Schulte-ek idatzi zuen: Aaron Ecay aarone...@gmail.com writes: * 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'. I'd like to apply this patch, however tracing the effects of these changes can be tricky and `org-babel-expand-noweb-references' and `org-babel-tangle' are both core functions. Have you run the test suite to confirm that these changes don't break any existing tests? The test suite gives no failures with this patch. -- Aaron Ecay
Re: [O] [PATCH 04/10] Add 'light argument to some uses of org-babel-get-src-block-info
Aaron Ecay aarone...@gmail.com writes: * 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'. I'd like to apply this patch, however tracing the effects of these changes can be tricky and `org-babel-expand-noweb-references' and `org-babel-tangle' are both core functions. Have you run the test suite to confirm that these changes don't break any existing tests? Thanks, -- Eric Schulte http://cs.unm.edu/~eschulte
[O] [PATCH 04/10] 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'. --- lisp/ob-core.el | 4 ++-- 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 283628e..0aae998 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -912,7 +912,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 @@ -2358,7 +2358,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 4bcb2e3..4c6eb5c 100644 --- a/lisp/ob-tangle.el +++ b/lisp/ob-tangle.el @@ -211,7 +211,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 -- 1.8.2
