From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Thu, 18 Mar 2010 13:57:49 +0000 (+0900)
Subject: (www-feature-type): Support `*node' and `*sources'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3c14f21994e2000eeb61a13f3a51271ee59ba753;p=chise%2Fest.git

(www-feature-type): Support `*node' and `*sources'.
(www-feature-value-format): Return `wiki-text' for type `stext'.
(www-format-apply-value): Don't set `default' even if a format is not
supported in this function.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index e4f64e8..9681fbe 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -35,6 +35,12 @@
   (or (char-feature-property feature-name 'type)
       (let ((str (symbol-name feature-name)))
 	(cond
+	 ((string-match "\\*note\\(@[^*]+\\)?$" str)
+	  'stext)
+	 ((string-match "\\*sources\\(@[^*]+\\)?$" str)
+	  'domain-list)
+	 ((string-match "\\*" str)
+	  nil)
 	 ((string-match "^\\(->\\|<-\\)" str)
 	  'relation)
 	 ((string-match "^ideographic-structure\\(@\\|$\\)" str)
@@ -47,7 +53,10 @@
 	(cond ((eq type 'relation)
 	       'space-separated-char-list)
 	      ((eq type 'structure)
-	       'space-separated-ids)))
+	       'space-separated-ids)
+	      ((eq type 'stext)
+	       'wiki-text)
+	      ))
       (if (find-charset feature-name)
 	  (if (and (= (charset-dimension feature-name) 2)
 		   (= (charset-chars feature-name) 94))
@@ -588,7 +597,7 @@
 	   ((eq format 'space-separated-ids)
 	    (www-format-value-as-ids value without-tags))
 	   (t
-	    (setq format 'default)
+            ;; (setq format 'default)
 	    (www-format-encode-string
 	     (format (www-format-props-to-string props 'default)
 		     value)