don't escape the pcdata in script and style
authorDavid Lichteblau <david@lichteblau.com>
Sun, 23 Mar 2008 18:29:13 +0000 (23 19:29 +0100)
committerDavid Lichteblau <david@radon.(none)>
Sun, 23 Mar 2008 18:29:13 +0000 (23 19:29 +0100)
src/parse/unparse.lisp

index 2810af5..73b3b8c 100644 (file)
 
 (defmethod hax:characters ((sink sink) data)
   (let ((y (sink-ystream sink)))
-    (loop for c across data do (unparse-datachar-readable c y))))
+    (if (find (caar (stack sink)) '("script" "style") :test 'equalp)
+       (write-rod data (sink-ystream sink))
+       (loop for c across data do (unparse-datachar-readable c y)))))
+
+(defmethod hax:unescaped ((sink sink) data)
+  (%write-rod data sink))
 
 (defmethod hax:comment ((sink sink) data)
   ;; XXX signal error if body is unprintable?