From: Mike Williams <mdub@bigfoot.com>
Date: Mon, 1 Apr 2002 12:44:34 +0000 (+0000)
Subject: (xml-lite-parse-tag-backward): Fix for implicitly empty tags.
X-Git-Tag: ttn-vms-21-2-B4~15867
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2407f4e124f9b17cd2caf786135bc76e17b0df17;p=emacs.git

(xml-lite-parse-tag-backward): Fix for implicitly empty tags.
---

diff --git a/lisp/textmodes/xml-lite.el b/lisp/textmodes/xml-lite.el
index 129c305404e..717732e0912 100644
--- a/lisp/textmodes/xml-lite.el
+++ b/lisp/textmodes/xml-lite.el
@@ -110,7 +110,8 @@ Leave point at the beginning of the tag."
         (t                              ; open or empty tag
          (setq tag-type 'open
                name (xml-lite-parse-tag-name))
-         (if (eq ?/ (char-before (- tag-end 1)))
+         (if (or (eq ?/ (char-before (- tag-end 1)))
+                 (sgml-empty-tag-p name))
              (setq tag-type 'empty))))))
     (goto-char tag-start)
     (xml-lite-make-tag tag-type tag-start tag-end name)))