save match data during indentation check

Thanks to Karl Berg for pointing out this issue.
2012-05-16 13:15:36 -04:00 · 2012-05-16 13:15:36 -04:00 · 1b21168d52
parent 429e6aafa6
commit 1b21168d52
1 changed files with 2 additions and 1 deletions
--- a/lisp/ob.el
+++ b/lisp/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