/[suikacvs]/markup/html/whatpm/Whatpm/HTML.pm.src
Suika

Diff of /markup/html/whatpm/Whatpm/HTML.pm.src

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.215 by wakaba, Thu Jul 2 22:11:51 2009 UTC revision 1.217 by wakaba, Sun Jul 5 05:13:13 2009 UTC
# Line 3837  sub _tree_construction_main ($) { Line 3837  sub _tree_construction_main ($) {
3837            !!!next-token;            !!!next-token;
3838            next B;            next B;
3839          } elsif ({          } elsif ({
3840                     select => 1, input => 1, textarea => 1,                     select => 1, input => 1, textarea => 1, keygen => 1,
3841                   }->{$token->{tag_name}} or                   }->{$token->{tag_name}} or
3842                   (($self->{insertion_mode} & IM_MASK)                   (($self->{insertion_mode} & IM_MASK)
3843                        == IN_SELECT_IN_TABLE_IM and                        == IN_SELECT_IN_TABLE_IM and
# Line 4417  sub _tree_construction_main ($) { Line 4417  sub _tree_construction_main ($) {
4417            next B;            next B;
4418          }          }
4419    
4420          ## has a p element in scope          if ($token->{tag_name} ne 'table' or # The Hixie Quirk
4421          INSCOPE: for (reverse @{$self->{open_elements}}) {              $self->{document}->manakai_compat_mode ne 'quirks') {
4422            if ($_->[1] == P_EL) {            ## has a p element in scope
4423              !!!cp ('t344');            INSCOPE: for (reverse @{$self->{open_elements}}) {
4424              !!!back-token; # <form>              if ($_->[1] == P_EL) {
4425              $token = {type => END_TAG_TOKEN, tag_name => 'p',                !!!cp ('t344');
4426                        line => $token->{line}, column => $token->{column}};                !!!back-token; # <form>
4427              next B;                $token = {type => END_TAG_TOKEN, tag_name => 'p',
4428            } elsif ($_->[1] & SCOPING_EL) {                          line => $token->{line}, column => $token->{column}};
4429              !!!cp ('t345');                next B;
4430              last INSCOPE;              } elsif ($_->[1] & SCOPING_EL) {
4431            }                !!!cp ('t345');
4432          } # INSCOPE                last INSCOPE;
4433                }
4434              } # INSCOPE
4435            }
4436                        
4437          !!!insert-element-t ($token->{tag_name}, $token->{attributes}, $token);          !!!insert-element-t ($token->{tag_name}, $token->{attributes}, $token);
4438          if ($token->{tag_name} eq 'pre' or $token->{tag_name} eq 'listing') {          if ($token->{tag_name} eq 'pre' or $token->{tag_name} eq 'listing') {
Legend:
Removed from v.1.215  
changed lines
  Added in v.1.217
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24