ob.el: Fix bug.

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index 3839100ff4de5d2a51c39f93ab691cb25ee5ce71..19f6a15dc9c8ec735e70adf76a2608ceae72e3b4 100644 (file)
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -1,3 +1,8 @@
+2012-05-16  Eric Schulte  <eric.schulte@gmx.com>
+
+       * ob.el (org-babel-parse-src-block-match): Save match data during
+       indentation check.
+
 2012-05-16  Bastien Guerry  <bzg@gnu.org>
 
        * org.el (org-scan-tags): Correctly match TODO keywords.

diff --git a/lisp/org/ob.el b/lisp/org/ob.el
index f3b7d6814bd1d52d09858b226a2432455b738852..69d7da4cb0ecc161688b2512afb89b1d2d2fc1e1 100644 (file)
--- a/lisp/org/ob.el
+++ b/lisp/org/ob.el
@@ -1159,7 +1159,8 @@ may be specified in the properties of the current outline entry."
                      (substring body 0 sub-length)
                    (or body "")))))
         (preserve-indentation (or org-src-preserve-indentation
-                                  (string-match "-i\\>" switches))))
+                                  (save-match-data
+                                    (string-match "-i\\>" switches)))))
     (list lang
           ;; get block body less properties, protective commas, and indentation
           (with-temp-buffer