From d6431c7b387ca7bf15ba527ef78a9e424e5c3865 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 18 Mar 2010 23:04:17 +0900 Subject: [PATCH] (www-set-display-char-desc): - Setup property `additional-features' of feature `$object' when feature value is stored. - Mount additional-features. --- cwiki-set.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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 "

%s

\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))))) -- 1.7.10.4