- (if (= level 1)
- "<p>\n"
- "<li>\n"))
- (princ
- (www-format-eval-list
- (or (char-feature-property (car cell) 'format)
- '((name) " : " (value)))
- char (car cell) lang uri-char))
- (princ
- (format " <a href=\"%s?char=%s&feature=%s\"
+ (encode-coding-string
+ (format "<p>(%s : <input type=\"text\" name=\"%s\"
+size=\"30\" maxlength=\"30\" value=\"%s\">)</p>
+"
+ genre genre
+ (decode-uri-string uri-object 'utf-8-mcs-er))
+ 'utf-8-mcs-er)))
+ (setq object-spec
+ (if (eq genre 'character)
+ (char-attribute-alist object)
+ (concord-object-spec object)))
+ (when feature-name-to-edit
+ (unless (assq base-name-to-edit object-spec)
+ (setq object-spec (cons (cons base-name-to-edit nil)
+ object-spec))))
+ (dolist (cell (sort object-spec
+ (lambda (a b)
+ (char-attribute-name<
+ (char-feature-name-sans-versions (car a))
+ (char-feature-name-sans-versions (car b))))))
+ (setq logical-feature (char-feature-name-sans-versions (car cell)))
+ (unless (memq logical-feature chise-wiki-displayed-features)
+ (push logical-feature chise-wiki-displayed-features)
+ (cond
+ ((and feature-name-to-edit
+ (eq (car cell) feature-name-to-edit))
+ (www-edit-display-feature-input-box
+ object feature-name-to-edit editing-format)
+ )
+ (t
+ (princ
+ (if (= level 1)
+ "<div class=\"feature\" style=\"line-height:150%\">\n"
+ "<li>\n"))
+ (princ
+ (www-format-eval-list
+ (www-feature-format logical-feature)
+ object
+ logical-feature ; (car cell)
+ lang uri-object
+ nil simple))
+ (unless simple
+ (princ
+ (format " <a href=\"%s?%s=%s&feature=%s&format=wiki-text\"