(est-coded-charset-priority-list): Add settings for `=+>ucs@iso',

[chise/est.git] / est-format.el

diff --git a/est-format.el b/est-format.el
index 1b2703d..75493a9 100644 (file)
--- a/est-format.el
+++ b/est-format.el
@@ -18,11 +18,10 @@
       (setq dest
            (format "%s %s=\"%s\""
                    dest key
-                   (www-format-encode-string
-                    (format "%s"
-                            (est-format-unit val 'without-tags
-                                             'without-edit 'as-property))
-                    'without-tags))))
+                   (format "%s"
+                           (est-format-unit val 'without-tags
+                                            'without-edit 'as-property))
+                   )))
     dest))
 
 (defun est-format-unit (format-unit
@@ -63,7 +62,8 @@
            props (nth 1 format-unit)
            children (nthcdr 2 format-unit))
       (cond
-       ((eq name 'list)
+       ((or (eq name 'list)
+           (eq name 'image-list))
        (cond
         ((or (eq output-format 'plain-text)
              (eq output-format 'wiki-text))
@@ -238,7 +238,7 @@
        ((memq name '(div
                     a ul ol p
                     span
-                    input))
+                    input img))
        )
        (t
        (when (eq output-format 'html)