Remove some properties from ASCII-exported text

This commit is contained in:
Carsten Dominik 2010-08-27 09:27:59 +02:00
parent 3d2dbf8604
commit 33f9d116ba
1 changed files with 4 additions and 1 deletions

View File

@ -573,7 +573,10 @@ publishing directory."
(goto-char (point-min))
(while (re-search-forward "\\[@start:[0-9]+\\] ?" nil t)
(org-if-unprotected
(replace-match ""))))
(replace-match "")))
(remove-text-properties
(point-min) (point-max)
'(face nil font-lock-fontified nil font-lock-multiline nil line-prefix nil wrap-prefix nil)))
(defun org-html-expand-for-ascii (line)
"Handle quoted HTML for ASCII export."