Mercurial > hg > xemacs-beta

comparison lisp/w3/w3-parse.el @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents 1ce6082ce73f
children 0d2f883870bc
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
1 ;; Created by: Joe Wells, jbw@cs.bu.edu 1 ;; Created by: Joe Wells, jbw@cs.bu.edu
2 ;; Created on: Sat Sep 30 17:25:40 1995 2 ;; Created on: Sat Sep 30 17:25:40 1995
3 ;; Filename: w3-parse.el 3 ;; Filename: w3-parse.el
4 ;; Purpose: Parse HTML and/or SGML for Emacs W3 browser. 4 ;; Purpose: Parse HTML and/or SGML for Emacs W3 browser.
5 5
6 ;; Copyright © 1995, 1996 Joseph Brian Wells 6 ;; Copyright © 1995, 1996, 1997 Joseph Brian Wells
7 ;; Copyright © 1993, 1994, 1995 by William M. Perry (wmperry@cs.indiana.edu) 7 ;; Copyright © 1993, 1994, 1995 by William M. Perry (wmperry@cs.indiana.edu)
8 ;; 8 ;;
9 ;; This program is free software; you can redistribute it and/or modify 9 ;; This program is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by 10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation; either version 2 of the License, or 11 ;; the Free Software Foundation; either version 2 of the License, or
1111 (%headmisc . (script)) 1111 (%headmisc . (script))
1112 (%head-deprecated . (nextid)) 1112 (%head-deprecated . (nextid))
1113 1113
1114 ;; client-side imagemaps 1114 ;; client-side imagemaps
1115 (%imagemaps . (area map)) 1115 (%imagemaps . (area map))
1116 (%input.fields . (input select textarea keygen label))
1116 ;; special action is taken for %text inside %body.content in the 1117 ;; special action is taken for %text inside %body.content in the
1117 ;; content model of each element. 1118 ;; content model of each element.
1118 (%body.content . (%heading %block style hr div address %imagemaps)) 1119 (%body.content . (%heading %block style hr div address %imagemaps))
1119 1120
1120 (%heading . (h1 h2 h3 h4 h5 h6)) 1121 (%heading . (h1 h2 h3 h4 h5 h6))
1122 ;; Emacs-w3 extensions 1123 ;; Emacs-w3 extensions
1123 (%emacsw3-crud . (pinhead flame cookie yogsothoth hype peek)) 1124 (%emacsw3-crud . (pinhead flame cookie yogsothoth hype peek))
1124 1125
1125 (%block . (p %list dl form %preformatted 1126 (%block . (p %list dl form %preformatted
1126 %blockquote isindex fn table fig note 1127 %blockquote isindex fn table fig note
1127 center %block-deprecated %block-obsoleted)) 1128 multicol center %block-deprecated %block-obsoleted))
1128 (%list . (ul ol)) 1129 (%list . (ul ol))
1129 (%preformatted . (pre)) 1130 (%preformatted . (pre))
1130 (%blockquote . (bq)) 1131 (%blockquote . (bq))
1131 (%block-deprecated . (dir menu blockquote)) 1132 (%block-deprecated . (dir menu blockquote))
1132 (%block-obsoleted . (xmp listing)) 1133 (%block-obsoleted . (xmp listing))
1133 1134
1134 ;; Why is IMG in this list? 1135 ;; Why is IMG in this list?
1135 (%pre.exclusion . (*include img *discard tab math big small sub sup)) 1136 (%pre.exclusion . (*include img *discard tab math big small sub sup))
1136 1137
1137 (%text . (*data b %notmath sub sup %emacsw3-crud)) 1138 (%text . (*data b %notmath sub sup %emacsw3-crud %input.fields))
1138 (%notmath . (%special %font %phrase %misc)) 1139 (%notmath . (%special %font %phrase %misc))
1139 (%font . (i u s strike tt big small sub sup font 1140 (%font . (i u s strike tt big small sub sup font
1140 roach secret wired)) ;; B left out for MATH 1141 roach secret wired)) ;; B left out for MATH
1141 (%phrase . (em strong dfn code samp kbd var cite blink)) 1142 (%phrase . (em strong dfn code samp kbd var cite blink))
1142 (%special . (a img applet object font basefont br script style map math tab span bdo)) 1143 (%special . (a img applet object font basefont br script style map math tab span bdo))
1249 ;; caused by BQ's sharing of BODYTEXT. BQ 1250 ;; caused by BQ's sharing of BODYTEXT. BQ
1250 ;; should have its own BQTEXT. 1251 ;; should have its own BQTEXT.
1251 ((credit plaintext) *close)) 1252 ((credit plaintext) *close))
1252 nil)]) 1253 nil)])
1253 (end-tag-omissible . t)) 1254 (end-tag-omissible . t))
1254 ((div banner center) 1255 ((div banner center multicol)
1255 (content-model . [((%body.content) 1256 (content-model . [((%body.content)
1256 nil 1257 nil
1257 ;; Push <P> before data characters. Non-SGML. 1258 ;; Push <P> before data characters. Non-SGML.
1258 (((%text) p)) 1259 (((%text) p))
1259 nil)])) 1260 nil)]))