Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-parse.el @ 38:1a767b41a199 r19-15b102

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b102
author cvs
date Mon, 13 Aug 2007 08:54:01 +0200
parents c53a95d3c46d
children 131b0175ea99
comparison
equal deleted inserted replaced
37:ad40ac360d14 38:1a767b41a199
1528 ((tfoot tbody) 1528 ((tfoot tbody)
1529 (content-model . [((tr) 1529 (content-model . [((tr)
1530 nil 1530 nil
1531 (((tbody) *close) 1531 (((tbody) *close)
1532 ;; error handling 1532 ;; error handling
1533 ((td th) tr *same error)
1533 ((%body.content) tr *same error)) 1534 ((%body.content) tr *same error))
1534 nil)]) 1535 nil)])
1535 (end-tag-omissible . t)) 1536 (end-tag-omissible . t))
1536 ((tr) 1537 ((tr)
1537 (content-model . [((td th) 1538 (content-model . [((td th)
2114 2115
2115 ;; We are looking at a markup-starting character, and invalid 2116 ;; We are looking at a markup-starting character, and invalid
2116 ;; character, or end of buffer. 2117 ;; character, or end of buffer.
2117 (cond 2118 (cond
2118 2119
2119 ((= ?< (char-after (point))) 2120 ((eq ?< (char-after (point)))
2120 2121
2121 ;; We are looking at a tag, comment, markup declaration, SGML marked 2122 ;; We are looking at a tag, comment, markup declaration, SGML marked
2122 ;; section, SGML processing instruction, or non-markup "<". 2123 ;; section, SGML processing instruction, or non-markup "<".
2123 (forward-char) 2124 (forward-char)
2124 (cond 2125 (cond
2608 ;; w3-grok-tag-or-data, but it's not clear which will be 2609 ;; w3-grok-tag-or-data, but it's not clear which will be
2609 ;; faster in practice. 2610 ;; faster in practice.
2610 (or (setq content (w3-element-content w3-p-d-current-element)) 2611 (or (setq content (w3-element-content w3-p-d-current-element))
2611 ;; *** Strictly speaking, in SGML the record end is 2612 ;; *** Strictly speaking, in SGML the record end is
2612 ;; carriage return, not line feed. 2613 ;; carriage return, not line feed.
2613 (if (= ?\n (char-after between-tags-start)) 2614 (if (eq ?\n (char-after between-tags-start))
2614 (setq between-tags-start (1+ between-tags-start)))) 2615 (setq between-tags-start (1+ between-tags-start))))
2615 (if (= between-tags-start (point)) 2616 (if (= between-tags-start (point))
2616 ;; Do nothing. 2617 ;; Do nothing.
2617 nil 2618 nil
2618 ;; We are definitely going to add data characters to the 2619 ;; We are definitely going to add data characters to the