From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Fri, 19 Mar 2010 05:49:19 +0000 (+0900)
Subject: (www-edit-display-feature-input-box): Escape <">.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=65d9735dfa22727b6c3ec95a606d946ef9bf38c6;p=chise%2Fest.git

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

diff --git a/cwiki-edit.el b/cwiki-edit.el
index f33c550..f58bd94 100644
--- 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