diff options
| author | Mike Williams | 2002-04-01 12:44:34 +0000 |
|---|---|---|
| committer | Mike Williams | 2002-04-01 12:44:34 +0000 |
| commit | 2407f4e124f9b17cd2caf786135bc76e17b0df17 (patch) | |
| tree | 92da7f89c793614cd2725d7f2659a18fb474a71a | |
| parent | 9c599518108274853242a2e879afb668b30c5781 (diff) | |
| download | emacs-2407f4e124f9b17cd2caf786135bc76e17b0df17.tar.gz emacs-2407f4e124f9b17cd2caf786135bc76e17b0df17.zip | |
(xml-lite-parse-tag-backward): Fix for implicitly empty tags.
| -rw-r--r-- | lisp/textmodes/xml-lite.el | 3 |
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))) |