mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-14 03:37:38 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Mike Williams 2002-04-01 12:44:34 +00:00
parent 9c59951810
commit 2407f4e124
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/textmodes/xml-lite.el
View file

@ -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)))