ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

babel: fixed bug dealing with ignoring quoted inline code blocks 

* contrib/babel/lisp/org-babel-exp.el (org-babel-exp-inline-src-blocks):
  fixed bug dealing with ignoring quoted inline code blocks
This commit is contained in:
Eric Schulte 2010-06-08 16:27:44 -07:00
parent 5068f4a5cf
commit 4fb9fa323e
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
contrib/babel/lisp/org-babel-exp.el
View File

@ -97,11 +97,12 @@ options and are taken from `org-babel-defualt-inline-header-args'."
(goto-char start)
(while (and (< (point) end)
(re-search-forward org-babel-inline-src-block-regexp end t))
(unless (org-babel-in-example-or-verbatim)
(let* ((info (save-match-data (org-babel-parse-inline-src-block-match)))
(params (third info))
(replacement
(save-match-data
(let* ((info (save-match-data (org-babel-parse-inline-src-block-match)))
(params (third info))
(replacement
(save-match-data
(if (org-babel-in-example-or-verbatim)
(buffer-substring (match-beginning 0) (match-end 0))
;; expand noweb references in the original file
(setf (second info)
(if (and (cdr (assoc :noweb params))
@ -109,10 +110,9 @@ options and are taken from `org-babel-defualt-inline-header-args'."
(org-babel-expand-noweb-references
info (get-file-buffer org-current-export-file))
(second info)))
(message "info:%S" info)
(org-babel-exp-do-export info 'inline))))
(setq end (+ end (- (length replacement) (length (match-string 1)))))
(replace-match replacement t t nil 1))))))
(org-babel-exp-do-export info 'inline)))))
(setq end (+ end (- (length replacement) (length (match-string 1)))))
(replace-match replacement t t nil 1)))))
(defun org-babel-in-example-or-verbatim ()
"Return true if the point is currently in an escaped portion of