diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2001-09-04 16:37:37 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2001-09-04 16:37:37 +0000 |
commit | 406e29da8cd8e73b9d36ee6ceaaf327278d10ea8 (patch) | |
tree | de9ad7344179b01f242b5ecdff56083141e1cbee /generic | |
parent | 2401382f71afd5db6971e15e245e538f1dbea526 (diff) |
Issue parsing messages
Diffstat (limited to 'generic')
-rw-r--r-- | generic/pg-xml.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/pg-xml.el b/generic/pg-xml.el index 9bd2559f..01fcec11 100644 --- a/generic/pg-xml.el +++ b/generic/pg-xml.el @@ -59,13 +59,15 @@ (cdr xmlparse))))) -(defun pg-xml-parse-buffer (&optional buffer) +(defun pg-xml-parse-buffer (&optional buffer nomsg) "Parse an XML documment in BUFFER (defaulting to current buffer). Return a lisp structure with symbols representing the element names, so that the result of parsing <elt attr=\"blah\">text</elt> is (elt ((attr . \"blah\")) (text))" + (unless nomsg + (message "Parsing %s..." (buffer-name buffer))) (save-excursion (if buffer (set-buffer buffer)) (goto-char (point-min)) @@ -159,6 +161,8 @@ is (min (point-max) (+ 30 (point-max)))))) ;; Return the parse ;; FIXME: + (unless nomsg + (message "Parsing %s...done" (buffer-name buffer))) (caar xmlparse)))) (defun pg-xml-parse-string (arg) |