Are you familiar with file local variables? See (info "(emacs)Specifying File Variables")
"Sean O'Halpin" <sean.ohal...@gmail.com> writes: > * 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)) -- Eric Schulte http://cs.unm.edu/~eschulte