Mercurial > emacs

changeset 44294:a87795faf65b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 a1bba2ef8c34
children ea6a55176423
files lisp/textmodes/xml-lite.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
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)))