- (format "char = %c" char))
- (www-html-display-paragraph
- (format "feature-name = %S" feature))
- (www-html-display-paragraph
- (format "feature-value = %S" value))
+ (format "char = %c : %S \u2190 %S"
+ char feature value))
+ (setq latest-feature
+ (char-feature-name-at-domain feature '$rev=latest))
+ (if value
+ (if (equal (www-char-feature char feature) value)
+ (www-html-display-paragraph
+ "Feature-value is not changed.")
+ (www-html-display-paragraph
+ (format "New feature-value = %S is different from old value %S"
+ value
+ (www-char-feature char feature)))
+ (put-char-attribute char latest-feature value)
+ (save-char-attribute-table latest-feature)
+ )
+ (www-html-display-paragraph
+ "New feature-value is nil, so it is ignored (may be syntax error).")
+ )