ob.el (org-babel-named-src-block-regexp-for-name): Generate a more general regexp

* ob.el (org-babel-named-src-block-regexp-for-name): Generate
a more general regexp.

Thanks to Loris Bennett for reporting this, and to Nicolas Girard for
pointing out what was the problem precisely.

1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/ob.el b/lisp/ob.el
index 84ce489..660303c 100644
--- a/lisp/ob.el
+++ b/lisp/ob.el
@@ -484,7 +484,7 @@ can not be resolved.")
 (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)
-	  "\\([ \t]\\|$\\|(\\)" ".*[\r\n]"
+	  "[ \t(]*[\r\n]\\(?:^#.*[\r\n]\\)*"
 	  (substring org-babel-src-block-regexp 1)))
 
 (defun org-babel-named-data-regexp-for-name (name)