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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/org-ascii.el
View File

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