(www-edit-display-feature-input-box): Escape <">.

[chise/est.git] / cwiki-edit.el

diff --git a/cwiki-edit.el b/cwiki-edit.el
index f33c550..f58bd94 100644 (file)
--- a/cwiki-edit.el
+++ b/cwiki-edit.el
@@ -71,9 +71,17 @@ size=\"64\" maxlength=\"256\" value=\"%s\">
               "0x"
             "")
           format
-          (www-format-value char feature-name
-                            (www-char-feature char feature-name)
-                            format 'without-tags)))
+          (mapconcat (lambda (c)
+                       (cond
+                         ;; ((eq c ?<) "&amp;lt;")
+                         ;; ((eq c ?>) "&amp;gt;")
+                        ((eq c ?") "&quot;")
+                        (t
+                         (char-to-string c))))
+                     (www-format-value char feature-name
+                                       (www-char-feature char feature-name)
+                                       format 'without-tags)
+                     "")))
   )
 
 (defun www-edit-display-char-desc (uri-char uri-feature-name