diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-05-01 14:23:49 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-05-01 14:51:56 +0200 |
commit | cec47a635e93c5afb3c13a226cd5fd64f422c9d3 (patch) | |
tree | ace65bae795c7c9664326dec85836f77d79621a0 | |
parent | 4aeb62233682bcd4c9aa4f941e39124e0fd71ebc (diff) | |
download | org-mode-cec47a635e93c5afb3c13a226cd5fd64f422c9d3.tar.gz |
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.
-rw-r--r-- | lisp/ob-core.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ob-core.el b/lisp/ob-core.el index c3963b4..c6a9046 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))) |