From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Fri, 19 Mar 2010 06:03:44 +0000 (+0900)
Subject: (www-xml-format-unit): Escape `&'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3ab471278b0c4650a83ffa301bd7396bacaf4aed;p=chise%2Fest.git

(www-xml-format-unit): Escape `&'.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index f6aa4ad..4a30be9 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -730,14 +730,15 @@
   (let (name props children ret)
     (cond
      ((stringp format-unit)
-      (www-format-encode-string format-unit 'without-tags)
-      ;; (mapconcat (lambda (c)
-      ;;              (cond
-      ;;               ((eq c ?<) "&amp;lt;")
-      ;;               ((eq c ?>) "&amp;gt;")
-      ;;               (t
-      ;;                (char-to-string c))))
-      ;;            format-unit "")
+      (mapconcat (lambda (c)
+		   (cond
+		    ((eq c ?&) "&amp;")
+                    ;; ((eq c ?<) "&amp;lt;")
+                    ;; ((eq c ?>) "&amp;gt;")
+		    (t
+		     (char-to-string c))))
+		 (www-format-encode-string format-unit 'without-tags)
+		 "")
       )
      ((consp format-unit)
       (setq name (car format-unit)