Mercurial > emacs
diff lisp/textmodes/xml-lite.el @ 44294:a87795faf65b
(xml-lite-parse-tag-backward): Fix for implicitly empty tags.
author | Mike Williams <mdub@bigfoot.com> |
---|---|
date | Mon, 01 Apr 2002 12:44:34 +0000 |
parents | cc29df7efbe8 |
children |
line wrap: on
line diff
--- a/lisp/textmodes/xml-lite.el Mon Apr 01 12:43:47 2002 +0000 +++ b/lisp/textmodes/xml-lite.el Mon Apr 01 12:44:34 2002 +0000 @@ -110,7 +110,8 @@ (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)))