From 2407f4e124f9b17cd2caf786135bc76e17b0df17 Mon Sep 17 00:00:00 2001 From: Mike Williams Date: Mon, 1 Apr 2002 12:44:34 +0000 Subject: [PATCH] (xml-lite-parse-tag-backward): Fix for implicitly empty tags. --- lisp/textmodes/xml-lite.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.2