From 9872e3036e9a5ebb03e4f6415c6f124ef2ae76a7 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Fri, 24 Nov 2000 13:24:00 +0000 Subject: Added pg-xml-parse-string function. --- generic/pg-xml.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'generic/pg-xml.el') 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' -- cgit v1.2.3