Mercurial > emacs

comparison lisp/textmodes/xml-lite.el @ 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 cc29df7efbe8
children
comparison
equal deleted inserted replaced
44293:a1bba2ef8c34 44294:a87795faf65b
108 ((?% ?#) ; JSP tags etc 108 ((?% ?#) ; JSP tags etc
109 (setq tag-type 'unknown)) 109 (setq tag-type 'unknown))
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)))
117 118
118 (defsubst xml-lite-inside-tag-p (tag-info &optional point) 119 (defsubst xml-lite-inside-tag-p (tag-info &optional point)