aboutsummaryrefslogtreecommitdiff
path: root/lib/xml_printer.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/xml_printer.ml')
-rw-r--r--lib/xml_printer.ml4
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/xml_printer.ml b/lib/xml_printer.ml
index eeddd53cb8..e7e4d0cebc 100644
--- a/lib/xml_printer.ml
+++ b/lib/xml_printer.ml
@@ -1,6 +1,6 @@
(************************************************************************)
(* v * The Coq Proof Assistant / The Coq Development Team *)
-(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2015 *)
+(* <O___,, * INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2016 *)
(* \VV/ **************************************************************)
(* // * This file is distributed under the terms of the *)
(* * GNU Lesser General Public License Version 2.1 *)
@@ -46,6 +46,8 @@ let buffer_attr tmp (n,v) =
match v.[p] with
| '\\' -> output "\\\\"
| '"' -> output "\\\""
+ | '<' -> output "&lt;"
+ | '&' -> output "&amp;"
| c -> output' c
done;
output' '"'