- (princ (format "<h1>%s</h1>\n"
- (www-format-encode-string (char-to-string char))))
- (dolist (feature (char-feature-property '$object 'additional-features))
- (mount-char-attribute-table
- (char-feature-name-at-domain feature '$rev=latest)))
- (dolist (cell (sort (char-attribute-alist char)
- (lambda (a b)
- (char-attribute-name< (car a)(car b)))))
- (setq logical-feature
- (char-feature-name-sans-versions (car cell)))
- (unless (memq logical-feature displayed-features)
- (push logical-feature displayed-features)
- (princ "<p>")
- (princ
- (www-format-eval-list
- (or (char-feature-property logical-feature 'format)
- '((name) " : " (value)))
- char logical-feature lang uri-char))
- (princ
- (format " <a href=\"%s?char=%s&feature=%s&format=wiki-text\"
-><input type=\"submit\" value=\"note\" /></a>"
- chise-wiki-edit-url
- (www-format-encode-string uri-char)
- (www-format-encode-string
- (www-uri-encode-feature-name
- (intern (format "%s*note" logical-feature))))))
- (princ "</p>\n")
- ))
- (princ
- (format "<p><a href=\"%s?char=%s\"
-><input type=\"submit\" value=\"add feature\" /></a></p>"
- chise-wiki-add-url
- (www-format-encode-string uri-char)))
+ (www-display-object-desc genre uri-object nil lang 1)
+ ;; (princ (format "<h1>%s</h1>\n"
+ ;; (www-format-encode-string (char-to-string object))))
+ ;; (dolist (feature (char-feature-property '$object 'additional-features))
+ ;; (mount-char-attribute-table
+ ;; (char-feature-name-at-domain feature '$rev=latest)))
+ ;; (dolist (cell (sort (char-attribute-alist object)
+ ;; (lambda (a b)
+ ;; (char-attribute-name< (car a)(car b)))))
+ ;; (setq logical-feature
+ ;; (char-feature-name-sans-versions (car cell)))
+ ;; (unless (memq logical-feature displayed-features)
+ ;; (push logical-feature displayed-features)
+ ;; (princ "<p>")
+ ;; (princ
+ ;; (www-format-eval-list
+ ;; (or (char-feature-property logical-feature 'format)
+ ;; '((name) " : " (value)))
+ ;; object logical-feature lang uri-object))
+ ;; (princ
+ ;; (format " <a href=\"%s?char=%s&feature=%s&format=wiki-text\"
+;;><inpu;; t type=\"submit\" value=\"note\" /></a>"
+ ;; chise-wiki-edit-url
+ ;; (www-format-encode-string uri-object)
+ ;; (www-format-encode-string
+ ;; (www-uri-encode-feature-name
+ ;; (intern (format "%s*note" logical-feature))))))
+ ;; (princ "</p>\n")
+ ;; ))
+ ;; (princ
+ ;; (format "<p><a href=\"%s?char=%s\"
+;;><inpu;; t type=\"submit\" value=\"add feature\" /></a></p>"
+ ;; chise-wiki-add-url
+ ;; (www-format-encode-string uri-object)))