emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] [BABEL] [PATCH] Make it possible to use buffer local noweb start


From: Eric Schulte
Subject: Re: [O] [BABEL] [PATCH] Make it possible to use buffer local noweb start/end patterns
Date: Sat, 25 Aug 2012 16:50:29 -0600
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2.50 (gnu/linux)

Are you familiar with file local variables?

See (info "(emacs)Specifying File Variables")

"Sean O'Halpin" <address@hidden> 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]