flush-table-characters ( document -- )

Vocabulary

html5

Inputs

document

an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: html5

:: flush-table-characters ( document -- )
    document pending-table-characters>> :> characters characters
    empty? [
        characters [ html-space? ] all?
        not document swap >>fostering-parent? drop
        document fostering-parent?>>
        [ document reconstruct-formatting ] when characters
        [ document swap append-node ] each
        document f >>fostering-parent? drop
        characters delete-all
    ] unless ;