# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1040058298 0
# Node ID 00120418fc709becd9a9dab7945ed43c1a548eaf
# Parent  3395df62dc04d8e0f8700e58d1b7f8d97e85ed46
(xml-parse-tag): Allow spaces between / and >.

diff -r 3395df62dc04 -r 00120418fc70 lisp/xml.el
--- a/lisp/xml.el	Mon Dec 16 16:22:41 2002 +0000
+++ b/lisp/xml.el	Mon Dec 16 17:04:58 2002 +0000
@@ -219,7 +219,7 @@
 	   pos)
 
       ;; is this an empty element ?
-      (if (looking-at "/>")
+      (if (looking-at "/[ \t\n]*>")
 	  (progn
 	    (forward-char 2)
 	    (nreverse (cons '("") children)))