From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sean O'Halpin" Subject: [BABEL] [PATCH] Make it possible to use buffer local noweb start/end patterns Date: Sat, 25 Aug 2012 23:22:24 +0100 Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1 Return-path: Received: from eggs.gnu.org ([208.118.235.92]:40583) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T5OkN-0007Id-HD for emacs-orgmode@gnu.org; Sat, 25 Aug 2012 18:22:29 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1T5OkM-0000ex-9d for emacs-orgmode@gnu.org; Sat, 25 Aug 2012 18:22:27 -0400 Received: from mail-pb0-f41.google.com ([209.85.160.41]:49200) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1T5OkM-0000et-1b for emacs-orgmode@gnu.org; Sat, 25 Aug 2012 18:22:26 -0400 Received: by pbbro12 with SMTP id ro12so5575745pbb.0 for ; Sat, 25 Aug 2012 15:22:24 -0700 (PDT) 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: Org Mode * lisp/ob.el (org-babel-expand-noweb-references): Capture current noweb start and end patterns then use to set buffer locals in (with-temp-buffer) form. This solves the problem that using different patterns for org-babel-noweb-wrap-start and org-babel-noweb-wrap-end could be done only globally. TINYCHANGE --- lisp/ob.el | 4 ++++ 1 files changed, 4 insertions(+), 0 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index 7518293..f9e9ae1 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -2270,6 +2270,8 @@ block but are passed literally to the \"example-block\"." (info (or info (org-babel-get-src-block-info))) (lang (nth 0 info)) (body (nth 1 info)) + (ob-nww-start org-babel-noweb-wrap-start) + (ob-nww-end org-babel-noweb-wrap-end) (comment (string= "noweb" (cdr (assoc :comments (nth 2 info))))) (rx-prefix (concat "\\(" org-babel-src-name-regexp "\\|" ":noweb-ref[ \t]+" "\\)")) @@ -2282,6 +2284,8 @@ block but are passed literally to the \"example-block\"." (org-babel-trim (buffer-string))))) index source-name evaluate prefix blocks-in-buffer) (with-temp-buffer + (org-set-local 'org-babel-noweb-wrap-start ob-nww-start) + (org-set-local 'org-babel-noweb-wrap-end ob-nww-end) (insert body) (goto-char (point-min)) (setq index (point)) (while (and (re-search-forward (org-babel-noweb-wrap) nil t)) -- 1.7.0.4