From 4b6b6f4799dad383e0bcf4568ac695ee31cb347d Mon Sep 17 00:00:00 2001 From: Sean O'Halpin Date: Sat, 25 Aug 2012 23:22:24 +0100 Subject: [PATCH] Make it possible to use buffer local noweb start/end patterns * 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 file changed, 4 insertions(+) diff --git a/lisp/ob.el b/lisp/ob.el index 521134518..af61c8c3a 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))