diff options
author | Hans Bolinder <[email protected]> | 2012-12-03 12:36:49 +0100 |
---|---|---|
committer | Hans Bolinder <[email protected]> | 2013-01-02 10:15:17 +0100 |
commit | 7f00144160c8e0202cfe7368830bdd472bc73505 (patch) | |
tree | 1ee6a05d1149037d90ccfdad289bcc0b2d593af1 /lib/erl_docgen/src/docgen_xmerl_xml_cb.erl | |
parent | b941448860fc2220695d04d8b8806509cb053b5a (diff) | |
download | otp-7f00144160c8e0202cfe7368830bdd472bc73505.tar.gz otp-7f00144160c8e0202cfe7368830bdd472bc73505.tar.bz2 otp-7f00144160c8e0202cfe7368830bdd472bc73505.zip |
[erl_docgen] Update due to introduction of Unicode
Diffstat (limited to 'lib/erl_docgen/src/docgen_xmerl_xml_cb.erl')
-rw-r--r-- | lib/erl_docgen/src/docgen_xmerl_xml_cb.erl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/erl_docgen/src/docgen_xmerl_xml_cb.erl b/lib/erl_docgen/src/docgen_xmerl_xml_cb.erl index 884932ed12..253019ffd6 100644 --- a/lib/erl_docgen/src/docgen_xmerl_xml_cb.erl +++ b/lib/erl_docgen/src/docgen_xmerl_xml_cb.erl @@ -35,9 +35,14 @@ '#xml-inheritance#'() -> [xmerl_xml]. -'#root#'(Data, _Attrs, [], _E) -> +'#root#'(Data, Attrs, [], _E) -> + Encoding = + case [E || #xmlAttribute{name = encoding, value = E} <- Attrs] of + [E] -> E; + _ -> atom_to_list(epp:default_encoding()) + end, ["<",DTD,">"] = hd(hd(Data)), - ["<?xml version=\"1.0\" encoding=\"latin1\" ?>\n", + ["<?xml version=\"1.0\" encoding=\"",Encoding,"\" ?>\n", "<!DOCTYPE "++DTD++" SYSTEM \""++DTD++".dtd\">\n", Data]. |