leave-table-colgroup ( document obj -- document )

Vocabulary

html5

Inputs

document	an object
obj	an object

Outputs

document

an object

Definition

USING: accessors kernel sequences ;

IN: html5

:: leave-table-colgroup ( document obj -- document )
    document "colgroup" close-table-element
    document "template" current-element-named? [
        document in-table-mode >>insertion-mode drop
        document template-insertion-modes>> pop drop
        in-table-mode document template-insertion-modes>> push
    ] when obj "colgroup" end-tag-named?
    [ document ] [ document obj body-token ] if ;