xml.el incorrectly parses empty elements

[Mark A. Hershberger]

xml.el parses

    <this/>       ----> (this nil (""))

And

    <this></this> ----> (this nil)

Folling patch fixes the first one to match the second.

*** xml.el.~1.7.4.1.~   Sat May  3 17:17:43 2003
--- xml.el      Thu May 15 01:45:46 2003
***************
*** 227,233 ****
          (progn
            (forward-char 2)
            (skip-chars-forward " \t\n")
!           (append children '("")))
  
        ;; is this a valid start tag ?
        (if (eq (char-after) ?>)
--- 227,233 ----
          (progn
            (forward-char 2)
            (skip-chars-forward " \t\n")
!           (append children nil))
  
        ;; is this a valid start tag ?
        (if (eq (char-after) ?>)


-- 
As long as you have mystery you have health; when you destroy mystery
you create morbidity.                        -- G.K. Chesterson