Explorar o código

Remove some properties from ASCII-exported text

Carsten Dominik %!s(int64=14) %!d(string=hai) anos
pai
achega
33f9d116ba
Modificáronse 1 ficheiros con 4 adicións e 1 borrados
  1. 4 1
      lisp/org-ascii.el

+ 4 - 1
lisp/org-ascii.el

@@ -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."