From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 16 Dec 2002 17:04:58 +0000 (+0000)
Subject: (xml-parse-tag): Allow spaces between / and >.
X-Git-Tag: ttn-vms-21-2-B4~11992
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6a9cb3ba1fd714f4a0f60ad0050a9d81518e8168;p=emacs.git

(xml-parse-tag): Allow spaces between / and >.
---

diff --git a/lisp/xml.el b/lisp/xml.el
index a495721330f..cd992502535 100644
--- a/lisp/xml.el
+++ b/lisp/xml.el
@@ -219,7 +219,7 @@ Returns one of:
 	   pos)
 
       ;; is this an empty element ?
-      (if (looking-at "/>")
+      (if (looking-at "/[ \t\n]*>")
 	  (progn
 	    (forward-char 2)
 	    (nreverse (cons '("") children)))