mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
Code

ob-exp: don't examplize inline code blocks which are already escaped

Browse Source 
* lisp/ob-exp.el (org-babel-exp-inline-src-blocks): Don't examplize
  inline code blocks which are already escaped.
This commit is contained in:
Eric Schulte 2011-08-21 14:23:27 -06:00
parent f51e540c4c
commit fceb767aea
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/ob-exp.el
View File

@ -128,10 +128,10 @@ options and are taken from `org-babel-default-inline-header-args'."
(while (and (< (point) end) (while (and (< (point) end)
(re-search-forward org-babel-inline-src-block-regexp end t)) (re-search-forward org-babel-inline-src-block-regexp end t))
(let* ((info (save-match-data (org-babel-parse-inline-src-block-match))) (let* ((info (save-match-data (org-babel-parse-inline-src-block-match)))
(params (nth 2 info)) code-replacement) (params (nth 2 info)))
(save-match-data (save-match-data
(goto-char (match-beginning 2)) (goto-char (match-beginning 2))
(when (not (org-babel-in-example-or-verbatim)) (unless (org-babel-in-example-or-verbatim)
;; expand noweb references in the original file ;; expand noweb references in the original file
(setf (nth 1 info) (setf (nth 1 info)
(if (and (cdr (assoc :noweb params)) (if (and (cdr (assoc :noweb params))
@ -139,11 +139,11 @@ options and are taken from `org-babel-default-inline-header-args'."
(org-babel-expand-noweb-references (org-babel-expand-noweb-references
info (get-file-buffer org-current-export-file)) info (get-file-buffer org-current-export-file))
(nth 1 info))) (nth 1 info)))
(setq code-replacement (org-babel-exp-do-export info 'inline)))) (let ((code-replacement (org-babel-exp-do-export info 'inline)))
(if code-replacement (if code-replacement
(replace-match code-replacement nil nil nil 1) (replace-match code-replacement nil nil nil 1)
(org-babel-examplize-region (match-beginning 1) (match-end 1)) (org-babel-examplize-region (match-beginning 1) (match-end 1))
(forward-char 2)))))) (forward-char 2)))))))))
(defun org-exp-res/src-name-cleanup () (defun org-exp-res/src-name-cleanup ()
"Clean up #+results and #+srcname lines for export. "Clean up #+results and #+srcname lines for export.