From 7b5eb30136ae38430e39cc5b1e41df0b27ff2a49 Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Sun, 23 Mar 2008 19:29:13 +0100 Subject: [PATCH] don't escape the pcdata in script and style --- src/parse/unparse.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/parse/unparse.lisp b/src/parse/unparse.lisp index 2810af5..73b3b8c 100644 --- a/src/parse/unparse.lisp +++ b/src/parse/unparse.lisp @@ -108,7 +108,12 @@ (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? -- 2.11.4.GIT