diff options
Diffstat (limited to 'generic/pg-xml.el')
| -rw-r--r-- | generic/pg-xml.el | 12 |
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' |