prepare-option ( document name -- )

Vocabulary

html5

Inputs

document	an object
name	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: html5

:: prepare-option ( document name -- )
    document select-in-scope? [
        document name "option" = [ "optgroup" ] [ "" ] if
        generate-implied-end-tags
    ] [
        document "option" current-element-named?
        [ document open-elements>> pop drop ] when
    ] if ;