diff options
-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) |