mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-20 10:18:59 +00:00
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.
This commit is contained in:
parent
72817926d7
commit
9ff7f80f51
|
@ -118,6 +118,7 @@ none ----- do not display either code or results upon export"
|
||||||
(nth 1 info)))
|
(nth 1 info)))
|
||||||
(org-babel-exp-do-export info 'block hash)))))
|
(org-babel-exp-do-export info 'block hash)))))
|
||||||
|
|
||||||
|
(defvar org-babel-inline-src-block-regexp)
|
||||||
(defun org-babel-exp-inline-src-blocks (start end)
|
(defun org-babel-exp-inline-src-blocks (start end)
|
||||||
"Process inline source blocks between START and END for export.
|
"Process inline source blocks between START and END for export.
|
||||||
See `org-babel-exp-src-block' for export options, currently the
|
See `org-babel-exp-src-block' for export options, currently the
|
||||||
|
|
|
@ -141,6 +141,7 @@ remove code block execution from the C-c C-c keybinding."
|
||||||
"\\([^\000]*?\\)[ \t]*#\\+end_src")
|
"\\([^\000]*?\\)[ \t]*#\\+end_src")
|
||||||
"Regexp used to identify code blocks.")
|
"Regexp used to identify code blocks.")
|
||||||
|
|
||||||
|
(eval-when-compile
|
||||||
(defvar org-babel-inline-src-block-regexp
|
(defvar org-babel-inline-src-block-regexp
|
||||||
(concat
|
(concat
|
||||||
;; (1) replacement target (2) lang
|
;; (1) replacement target (2) lang
|
||||||
|
@ -149,7 +150,7 @@ remove code block execution from the C-c C-c keybinding."
|
||||||
"\\(\\|\\[\\(.*?\\)\\]\\)"
|
"\\(\\|\\[\\(.*?\\)\\]\\)"
|
||||||
;; (5) body
|
;; (5) body
|
||||||
"{\\([^\f\n\r\v]+?\\)}\\)")
|
"{\\([^\f\n\r\v]+?\\)}\\)")
|
||||||
"Regexp used to identify inline src-blocks.")
|
"Regexp used to identify inline src-blocks."))
|
||||||
|
|
||||||
(defun org-babel-get-header (params key &optional others)
|
(defun org-babel-get-header (params key &optional others)
|
||||||
"Select only header argument of type KEY from a list.
|
"Select only header argument of type KEY from a list.
|
||||||
|
|
Loading…
Reference in a new issue