(www-edit-display-feature-input-box):
authorMORIOKA Tomohiko <tomo@auxo.local>
Wed, 12 Oct 2011 17:42:47 +0000 (02:42 +0900)
committerMORIOKA Tomohiko <tomo@auxo.local>
Wed, 12 Oct 2011 17:42:47 +0000 (02:42 +0900)
- 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'.

cwiki-view.el

index 1605d68..48448d5 100644 (file)
@@ -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