Issue parsing messages

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)