(www-edit-display-feature-input-box): Escape <">.
authorMORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Fri, 19 Mar 2010 05:49:19 +0000 (14:49 +0900)
committerMORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Fri, 19 Mar 2010 05:49:19 +0000 (14:49 +0900)
cwiki-edit.el

index f33c550..f58bd94 100644 (file)
@@ -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