From mboxrd@z Thu Jan 1 00:00:00 1970 From: Aaron Ecay Subject: [PATCH 04/10] Add 'light argument to some uses of org-babel-get-src-block-info Date: Mon, 1 Apr 2013 01:42:18 -0400 Message-ID: <1364794944-13826-5-git-send-email-aaronecay@gmail.com> References: <1364794944-13826-1-git-send-email-aaronecay@gmail.com> Return-path: Received: from eggs.gnu.org ([208.118.235.92]:37687) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UMXVs-0002jF-PA for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:38 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1UMXVq-0000vg-Fj for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:36 -0400 Received: from mail-qe0-f53.google.com ([209.85.128.53]:60536) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1UMXVq-0000vY-Bq for emacs-orgmode@gnu.org; Mon, 01 Apr 2013 01:42:34 -0400 Received: by mail-qe0-f53.google.com with SMTP id q19so1044210qeb.40 for ; Sun, 31 Mar 2013 22:42:34 -0700 (PDT) In-Reply-To: <1364794944-13826-1-git-send-email-aaronecay@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * 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