From 8f163a37c757d0997abd7f278326efbaf4d4fe1b Mon Sep 17 00:00:00 2001 From: David Botton Date: Tue, 30 Aug 2022 00:39:07 -0400 Subject: [PATCH] add escape string to place-text-inside-* --- source/clog-element.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/source/clog-element.lisp b/source/clog-element.lisp index 96189c0..c07b5ce 100644 --- a/source/clog-element.lisp +++ b/source/clog-element.lisp @@ -243,7 +243,7 @@ after attachment is changed to one unique to this session.")) (:documentation "Places text inside top of CLOG-OBJ in DOM")) (defmethod place-text-inside-top-of ((obj clog-obj) text) - (jquery-execute obj (format nil "prepend(document.createTextNode('~A'))" text)) + (jquery-execute obj (format nil "prepend(document.createTextNode('~A'))" (escape-string text))) text) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; @@ -254,7 +254,7 @@ after attachment is changed to one unique to this session.")) (:documentation "Places text inside bottom of CLOG-OBJ in DOM")) (defmethod place-text-inside-bottom-of ((obj clog-obj) text) - (jquery-execute obj (format nil "append(document.createTextNode('~A'))" text)) + (jquery-execute obj (format nil "append(document.createTextNode('~A'))" (escape-string text))) text)