mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-23 23:18:36 +00:00
org-export: Fix comma escape in included files
* contrib/lisp/org-export.el (org-export-expand-include-keyword): Use new functions to comma escape contents of included files when in an example or a src block.
This commit is contained in:
parent
2c78ca4a56
commit
0af2f6068f
|
@ -2774,23 +2774,16 @@ paths."
|
|||
(insert
|
||||
(let ((ind-str (make-string ind ? ))
|
||||
(contents
|
||||
;; Protect sensitive contents with commas.
|
||||
(replace-regexp-in-string
|
||||
"\\(^\\)\\([*]\\|[ \t]*#\\+\\)" ","
|
||||
(org-export--prepare-file-contents file lines)
|
||||
nil nil 1)))
|
||||
(org-escape-code-in-string
|
||||
(org-export--prepare-file-contents file lines))))
|
||||
(format "%s#+BEGIN_EXAMPLE\n%s%s#+END_EXAMPLE\n"
|
||||
ind-str contents ind-str))))
|
||||
((stringp env)
|
||||
(insert
|
||||
(let ((ind-str (make-string ind ? ))
|
||||
(contents
|
||||
;; Protect sensitive contents with commas.
|
||||
(replace-regexp-in-string
|
||||
(if (string= env "org") "\\(^\\)\\(.\\)"
|
||||
"\\(^\\)\\([*]\\|[ \t]*#\\+\\)") ","
|
||||
(org-export--prepare-file-contents file lines)
|
||||
nil nil 1)))
|
||||
(org-escape-code-in-string
|
||||
(org-export--prepare-file-contents file lines))))
|
||||
(format "%s#+BEGIN_SRC %s\n%s%s#+END_SRC\n"
|
||||
ind-str env contents ind-str))))
|
||||
(t
|
||||
|
|
Loading…
Reference in a new issue