Added pg-xml-parse-string function.

1 files changed, 12 insertions, 0 deletions

diff --git a/generic/pg-xml.el b/generic/pg-xml.el
index 67e053af..cc57a5fd 100644
--- a/generic/pg-xml.el
+++ b/generic/pg-xml.el
@@ -166,6 +166,16 @@ is
       ;; FIXME: 
       (caar xmlparse))))
 
+(defun pg-xml-parse-string (arg)
+  "Parse string in ARG, same as pg-xml-parse-buffer."
+  (let
+      ((tempbuffer (get-buffer-create " *xml-parse*")))
+    (save-excursion 
+      (set-buffer tempbuffer)
+      (delete-region (point-min) (point-max))
+      (insert-string arg)
+      (pg-xml-parse-buffer))))
+
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
@@ -238,3 +248,5 @@ is
 ;;  (pg-xml-closeelt)
 ;;  (pg-xml-closeelt)
 ;;  (pg-xml-doc))
+
+;; End of `pg-xml.el'