From: MORIOKA Tomohiko <tomo@auxo.local>
Date: Wed, 12 Oct 2011 17:42:47 +0000 (+0900)
Subject: (www-edit-display-feature-input-box):
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aa5127c225644e7a70db866c3e72c22549c2781b;p=chise%2Fest.git

(www-edit-display-feature-input-box):
- If argument `value' is a symbol and argument `format' is
  `wiki-text', treat `value' as a list of a function
- Use `est-format-list' instead of `www-format-value'.
---

diff --git a/cwiki-view.el b/cwiki-view.el
index 1605d68..48448d5 100644
--- a/cwiki-view.el
+++ b/cwiki-view.el
@@ -14,6 +14,9 @@
     (setq format 'default))
   (unless value
     (setq value (www-get-feature-value char feature-name)))
+  (if (and (symbolp value)
+	   (eq format 'wiki-text))
+      (setq value (list (list value))))
   (princ
    (format "<p><input type=\"text\" name=\"feature-name\"
 size=\"32\" maxlength=\"256\" value=\"%s\">"
@@ -35,8 +38,7 @@ size=\"64\" maxlength=\"256\" value=\"%s\">
 			 ((eq c ?\u0022) "&quot;")
 			 (t
 			  (char-to-string c))))
-		      (www-format-value char feature-name
-					value format 'without-tags)
+		      (est-format-list value format nil nil " ")
 		      "")))
   )
 
@@ -323,7 +325,8 @@ size=\"30\" maxlength=\"30\" value=\"%s\" />"
 		    (or (www-feature-value-format feature-name)
 			'default)
 		    'default
-		    'without-tags)))
+		    'without-tags)
+		   ))
     (unless simple
       (princ
        (format