aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMike Williams2002-04-01 12:44:34 +0000
committerMike Williams2002-04-01 12:44:34 +0000
commit2407f4e124f9b17cd2caf786135bc76e17b0df17 (patch)
tree92da7f89c793614cd2725d7f2659a18fb474a71a
parent9c599518108274853242a2e879afb668b30c5781 (diff)
downloademacs-2407f4e124f9b17cd2caf786135bc76e17b0df17.tar.gz
emacs-2407f4e124f9b17cd2caf786135bc76e17b0df17.zip
(xml-lite-parse-tag-backward): Fix for implicitly empty tags.
-rw-r--r--lisp/textmodes/xml-lite.el3
1 files changed, 2 insertions, 1 deletions
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."
110 (t ; open or empty tag 110 (t ; open or empty tag
111 (setq tag-type 'open 111 (setq tag-type 'open
112 name (xml-lite-parse-tag-name)) 112 name (xml-lite-parse-tag-name))
113 (if (eq ?/ (char-before (- tag-end 1))) 113 (if (or (eq ?/ (char-before (- tag-end 1)))
114 (sgml-empty-tag-p name))
114 (setq tag-type 'empty)))))) 115 (setq tag-type 'empty))))))
115 (goto-char tag-start) 116 (goto-char tag-start)
116 (xml-lite-make-tag tag-type tag-start tag-end name))) 117 (xml-lite-make-tag tag-type tag-start tag-end name)))