mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-15 13:16:28 +00:00
Code Releases Activity

fix compilation errors introduced by most recent changes

Browse source 
* 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:
Eric Schulte 2011-07-29 10:36:39 -06:00
parent 72817926d7
commit 9ff7f80f51
2 changed files with 11 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
lisp/ob-exp.el
View file

@ -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

19
lisp/ob.el
View file

@ -141,15 +141,16 @@ 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.")
(defvar org-babel-inline-src-block-regexp (eval-when-compile
(concat (defvar org-babel-inline-src-block-regexp
;; (1) replacement target (2) lang (concat
"[^-[:alnum:]]\\(src_\\([^ \f\t\n\r\v]+\\)" ;; (1) replacement target (2) lang
;; (3,4) (unused, headers) "[^-[:alnum:]]\\(src_\\([^ \f\t\n\r\v]+\\)"
"\\(\\|\\[\\(.*?\\)\\]\\)" ;; (3,4) (unused, headers)
;; (5) body "\\(\\|\\[\\(.*?\\)\\]\\)"
"{\\([^\f\n\r\v]+?\\)}\\)") ;; (5) body
"Regexp used to identify inline src-blocks.") "{\\([^\f\n\r\v]+?\\)}\\)")
"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.