From 9ff7f80f51a15c4a3dd2b654f0b08e9e290f5375 Mon Sep 17 00:00:00 2001
From: Eric Schulte <schulte.eric@gmail.com>
Date: Fri, 29 Jul 2011 10:36:39 -0600
Subject: [PATCH] fix compilation errors introduced by most recent changes *
 lisp/ob-exp.el (org-babel-inline-src-block-regexp): Declare this variable. *
 lisp/ob.el (defvar): Wrap variable declaration in eval-when-compile.

---
 lisp/ob-exp.el |  1 +
 lisp/ob.el     | 19 ++++++++++---------
 2 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el
index d65441e95..9f60b85c3 100644
--- a/lisp/ob-exp.el
+++ b/lisp/ob-exp.el
@@ -118,6 +118,7 @@ none ----- do not display either code or results upon export"
 		(nth 1 info)))
 	(org-babel-exp-do-export info 'block hash)))))
 
+(defvar org-babel-inline-src-block-regexp)
 (defun org-babel-exp-inline-src-blocks (start end)
   "Process inline source blocks between START and END for export.
 See `org-babel-exp-src-block' for export options, currently the
diff --git a/lisp/ob.el b/lisp/ob.el
index a47b8bedd..aeddb753f 100644
--- a/lisp/ob.el
+++ b/lisp/ob.el
@@ -141,15 +141,16 @@ remove code block execution from the C-c C-c keybinding."
    "\\([^\000]*?\\)[ \t]*#\\+end_src")
   "Regexp used to identify code blocks.")
 
-(defvar org-babel-inline-src-block-regexp
-  (concat
-   ;; (1) replacement target (2) lang
-   "[^-[:alnum:]]\\(src_\\([^ \f\t\n\r\v]+\\)"
-   ;; (3,4) (unused, headers)
-   "\\(\\|\\[\\(.*?\\)\\]\\)"
-   ;; (5) body
-   "{\\([^\f\n\r\v]+?\\)}\\)")
-  "Regexp used to identify inline src-blocks.")
+(eval-when-compile
+  (defvar org-babel-inline-src-block-regexp
+    (concat
+     ;; (1) replacement target (2) lang
+     "[^-[:alnum:]]\\(src_\\([^ \f\t\n\r\v]+\\)"
+     ;; (3,4) (unused, headers)
+     "\\(\\|\\[\\(.*?\\)\\]\\)"
+     ;; (5) body
+     "{\\([^\f\n\r\v]+?\\)}\\)")
+    "Regexp used to identify inline src-blocks."))
 
 (defun org-babel-get-header (params key &optional others)
   "Select only header argument of type KEY from a list.