Browse Source

Protect target-like text in verbatim snippets during ASCII export

Carsten Dominik 15 years ago
parent
commit
4d4e1ed2a2
1 changed files with 6 additions and 5 deletions
  1. 6 5
      lisp/org-ascii.el

+ 6 - 5
lisp/org-ascii.el

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