From cec47a635e93c5afb3c13a226cd5fd64f422c9d3 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Fri, 1 May 2015 14:23:49 +0200 Subject: [PATCH] ob-core: Change `org-babel-named-src-block-regexp-for-name' signature * lisp/ob-core.el (org-babel-named-src-block-regexp-for-name): Allow to match any name. --- lisp/ob-core.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/ob-core.el b/lisp/ob-core.el index c3963b42c..c6a9046da 100644 --- a/lisp/ob-core.el +++ b/lisp/ob-core.el @@ -592,9 +592,13 @@ to raise errors for all languages.") (defvar org-babel-after-execute-hook nil "Hook for functions to be called after `org-babel-execute-src-block'") -(defun org-babel-named-src-block-regexp-for-name (name) - "This generates a regexp used to match a src block named NAME." - (concat org-babel-src-name-regexp (regexp-quote name) +(defun org-babel-named-src-block-regexp-for-name (&optional name) + "This generates a regexp used to match a src block named NAME. +If NAME is nil, match any name. Matched name is then put in +match group 9. Other match groups are defined in +`org-babel-src-block-regexp'." + (concat org-babel-src-name-regexp + (concat (if name (regexp-quote name) "\\(?9:.*?\\)") "[ \t]*" ) "\\(?:\n[ \t]*#\\+\\S-+:.*\\)*?" "\n" (substring org-babel-src-block-regexp 1))) -- 2.11.4.GIT