Explorar el Código

Remove some properties from ASCII-exported text

Carsten Dominik hace 15 años
padre
commit
33f9d116ba
Se han modificado 1 ficheros con 4 adiciones y 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."