Revert "fix compilation errors introduced by most recent changes"

This reverts commit 9ff7f80f51.
This commit is contained in:
Eric Schulte 2011-08-01 15:31:24 -06:00
parent c3631aae7e
commit b8ae6a6bdb
2 changed files with 9 additions and 11 deletions

View File

@ -118,7 +118,6 @@ 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

View File

@ -141,16 +141,15 @@ remove code block execution from the C-c C-c keybinding."
"\\([^\000]*?\n\\)?[ \t]*#\\+end_src")
"Regexp used to identify code 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."))
(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.