diff options
Diffstat (limited to 'generic/pg-xml.el')
-rw-r--r-- | generic/pg-xml.el | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/generic/pg-xml.el b/generic/pg-xml.el index 9fab3903..7f0d48e1 100644 --- a/generic/pg-xml.el +++ b/generic/pg-xml.el @@ -183,6 +183,7 @@ is ;; ;; Producing functions: state-based writing of an XML doc, ;; built up in pg-xml-doc +;; (defconst pg-xml-header "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n") @@ -196,6 +197,16 @@ is (defvar pg-xml-indentp nil "Whether to indent written XML documents") +(defun pg-xml-encode-entities (string) + (progn + ;; rather inefficiently... + (setq string (replace-regexp-in-string (regexp-quote "<") "<" string)) + (setq string (replace-regexp-in-string (regexp-quote ">") "&rt;" string)) + (setq string (replace-regexp-in-string (regexp-quote "'") "'" string)) + (setq string (replace-regexp-in-string (regexp-quote "&") "&" string)) + (setq string (replace-regexp-in-string (regexp-quote "\"") """ string)) + string)) + (defun pg-xml-begin-write (&optional header) "Start writing an XML document. If HEADER is non-nil, add <?xml ?>" (setq pg-xml-doc (if header (list pg-xml-header)) |