From 78c1f3571edc406bebcd54217b9656ed1ffd6b8d Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Thu, 28 Nov 2002 12:43:40 +0000
Subject: Add pg-xml-encode-entities.

---
 generic/pg-xml.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

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 "<") "&lt;" string))
+    (setq string (replace-regexp-in-string (regexp-quote ">") "&rt;" string))
+    (setq string (replace-regexp-in-string (regexp-quote "'") "&apos;" string))
+    (setq string (replace-regexp-in-string (regexp-quote "&") "&amp;" string))
+    (setq string (replace-regexp-in-string (regexp-quote "\"") "&quot;" 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))
-- 
cgit v1.2.3