fix encoding of html entities

This commit is contained in:
David Botton 2022-07-19 23:23:01 -04:00
parent 52e2bbe6f3
commit a7bd5e5ed2

View file

@ -325,7 +325,6 @@
`((:name "contents"
:setup ,(lambda (control td1 td2)
(declare (ignore td1))
(princ (inner-html control))
(let ((d1 (create-text-area td2 :value (inner-html control))))
(set-on-change d1 (lambda (obj)
(declare (ignore obj))