Tcl Library Source Code

Artifact 7b24b5c0c1b869455b626491319670b2a56f53c6:

Attachment "doctools.html.patch" to ticket [4cca6e630b] added by gjr.timmer 2017-08-08 10:55:40. (unpublished)

---

--- _html.tcl	2017-08-08 12:52:42.076965300 +0200
+++ _html.tcl	2017-08-08 12:53:08.403267700 +0200
@@ -180,7 +180,7 @@
 }
 
 proc ht_comment {text}   {
-    return "[markup <]! -- [join [split $text \n] "   -- "]\n   --[markup >]"
+    return "[markup <]! -- [htmlEscape [join [split $text \n] "   -- "]]\n   --[markup >]"
 }
 
 # wrap content gi --