From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Thu, 18 Mar 2010 14:04:17 +0000 (+0900)
Subject: (www-set-display-char-desc):
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d6431c7b387ca7bf15ba527ef78a9e424e5c3865;p=chise%2Fest.git

(www-set-display-char-desc):
- Setup property `additional-features' of feature `$object' when
  feature value is stored.
- Mount additional-features.
---

diff --git a/cwiki-set.el b/cwiki-set.el
index b7ace7a..7d11822 100644
--- a/cwiki-set.el
+++ b/cwiki-set.el
@@ -82,7 +82,8 @@
     (setq format (intern format)))
   (let ((char (www-uri-decode-char uri-char))
 	latest-feature
-	logical-feature displayed-features)
+	logical-feature displayed-features
+	ret)
     (when (characterp char)
       (princ
        (encode-coding-string
@@ -111,12 +112,19 @@
 		     (www-char-feature char feature)))
 	    (put-char-attribute char latest-feature value)
 	    (save-char-attribute-table latest-feature)
+	    (setq ret (char-feature-property '$object 'additional-features))
+	    (unless (memq feature ret)
+	      (put-char-feature-property
+	       '$object 'additional-features (cons feature ret)))
 	    )
 	(www-html-display-paragraph
 	 "New feature-value is nil, so it is ignored (may be syntax error).")
 	)
       (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)))))