             incorrectly-opened-comment ! bogus-comment-state
         ]
     } cond ;
-
-: markup-declaration-open-state ( document n/f string -- document n'/f string )
-    next-char-from (markup-declaration-open-state) ;
-
 
 : (comment-start-state) ( document n/f string ch/f -- document n'/f string )
     {

    [ SBUF" " clone >>temporary-buffer drop ] bi ;

: emit-eof ( document -- ) drop "emit-eof" print ;
: emit-char ( char document -- ) drop "emit-char:" write . ;
: emit-temporary-buffer-with ( string document -- ) "emit-temp-buffer: " write temporary-buffer>> append . ;
: emit-string ( char document -- ) drop "emit-string:" write . ;
: emit-tag ( document -- ) "emit tag: " write . ;
: emit-end-tag ( document -- ) "emit end tag: " write . ;
: emit-doctype-token ( document -- )
    "emit doctype: " write

        initial-mode >>tree-insert-mode
        <doctype> >>doctype-token
        SBUF" " clone >>tag-name
        SBUF" " clone >>attribute-name
        SBUF" " clone >>attribute-value
        SBUF" " clone >>temporary-buffer
