diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2000-11-24 13:24:00 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2000-11-24 13:24:00 +0000 |
commit | 9872e3036e9a5ebb03e4f6415c6f124ef2ae76a7 (patch) | |
tree | 4e7e97ab3b7f5bffd66560998bb3acc8abb8609d | |
parent | f7f93e02969164375f0a586f8c5c2fc1e83e342f (diff) |
Added pg-xml-parse-string function.
-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' |