[Emacs-diffs] /srv/bzr/emacs/trunk r105364: Fix regexp for finding code blocks

[Carsten Dominik]

------------------------------------------------------------
revno: 105364
committer: Carsten Dominik <address@hidden>
branch nick: trunk
timestamp: Sat 2011-07-30 18:29:20 +0200
message:
  Fix regexp for finding code blocks
modified:
  lisp/org/ChangeLog
  lisp/org/ob.el

=== modified file 'lisp/org/ChangeLog'
--- a/lisp/org/ChangeLog        2011-07-29 06:47:56 +0000
+++ b/lisp/org/ChangeLog        2011-07-30 16:29:20 +0000
@@ -1,3 +1,8 @@
+2011-07-30  Carsten Dominik  <address@hidden>
+
+       * ob.el (org-babel-src-block-regexp): If a code block has a body,
+       its last character must be a newline.
+
 2011-07-28  Bastien Guerry  <address@hidden>
 
        * org-publish.el (org-publish-index-generate-theindex): rename

=== modified file 'lisp/org/ob.el'
--- a/lisp/org/ob.el    2011-07-28 15:13:49 +0000
+++ b/lisp/org/ob.el    2011-07-30 16:29:20 +0000
@@ -137,7 +137,7 @@
    ;; (4) header arguments
    "\\([^\n]*\\)\n"
    ;; (5) body
-   "\\([^\000]*?\\)[ \t]*#\\+end_src")
+   "\\([^\000]*?\n\\)?[ \t]*#\\+end_src")
   "Regexp used to identify code blocks.")
 
 (defvar org-babel-inline-src-block-regexp