Protect target-like text in verbatim snippets during ASCII export

This commit is contained in:
Carsten Dominik 2010-01-08 09:41:16 +01:00
parent be8d644680
commit 4d4e1ed2a2
1 changed files with 6 additions and 5 deletions

View File

@ -486,11 +486,12 @@ publishing directory."
;; Put quotes around verbatim text
(goto-char (point-min))
(while (re-search-forward org-verbatim-re nil t)
(org-if-unprotected-at (match-beginning 4)
(goto-char (match-end 2))
(backward-delete-char 1) (insert "'")
(goto-char (match-beginning 2))
(delete-char 1) (insert "`")
(goto-char (match-end 2)))
(goto-char (match-end 2))))
;; Remove target markers
(goto-char (point-min))
(while (re-search-forward "<<<?\\([^<>]*\\)>>>?\\([ \t]*\\)" nil t)