+(defun www-edit-display-feature-input-box (char feature-name
+ &optional format value)
+ (if (symbolp char)
+ (setq char (or (concord-decode-object '=id char 'feature)
+ (concord-make-object 'feature char))))
+ (unless format
+ (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\">"
+ feature-name))
+ (princ (encode-coding-string " \u2190 " 'utf-8-mcs-er))
+ (princ
+ (format "%s<input type=\"text\" name=\"%s\"
+size=\"64\" maxlength=\"256\" value=\"%s\">
+<input type=\"submit\" value=\"set\" /></p>
+"
+ (if (or (eq format 'HEX)(eq format 'hex))
+ "0x"
+ "")
+ format
+ (mapconcat (lambda (c)
+ (cond
+ ;; ((eq c ?<) "&lt;")
+ ;; ((eq c ?>) "&gt;")
+ ((eq c ?\u0022) """)
+ (t
+ (char-to-string c))))
+ (est-format-list value format nil nil " ")
+ "")))
+ )
+
+(defun www-display-object-desc (genre uri-object &optional lang level simple
+ uri-feature-name-to-edit editing-format)