X-Git-Url: http://git.nguyen.vg/gitweb/?a=blobdiff_plain;f=src%2Ftree.ml;fp=src%2Ftree.ml;h=166eeea393b083dfef72ddbfdceb5f969dcbd0c2;hb=1e5a0a6e72f96cf139b6da5511fab850f5da5b84;hp=bc81cf48ecffd4fa2a921c139c01d3e63510c507;hpb=83e9f9d8f219fece86afbedd1332d5ad97971d1c;p=SXSI%2Fxpathcomp.git diff --git a/src/tree.ml b/src/tree.ml index bc81cf4..166eeea 100644 --- a/src/tree.ml +++ b/src/tree.ml @@ -96,7 +96,6 @@ struct close_tag b atname let start_element_handler parser_ b t tag attr_list = - display_count parser_; do_text b t; open_tag b tag; match attr_list with @@ -108,12 +107,10 @@ struct let end_element_handler parser_ b t tag = - display_count parser_; do_text b t; close_tag b tag let character_data_handler parser_ _ t text = - display_count parser_; Buffer.add_string t text let create_parser () =