From 3c14f21994e2000eeb61a13f3a51271ee59ba753 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 18 Mar 2010 22:57:49 +0900 Subject: [PATCH] (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. --- cwiki-common.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) 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) -- 1.7.10.4