From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Thu, 14 Oct 2010 03:01:37 +0000 (+0900)
Subject: (www-get-genre): Abolished.
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fest.git;a=commitdiff_plain;h=b6ad289a5524896a60427f8670fe8b2d6f58a01f

(www-get-genre): Abolished.
(www-get-feature-value): Don't use `www-get-genre'.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index 2a54841..4e07923 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -41,11 +41,6 @@
 	 (concat dest (substring string i))
 	 coding-system))))
 
-(defun www-get-genre (object)
-  (if (characterp object)
-      'character
-    'default))
-
 (defun www-feature-type (feature-name)
   (or (char-feature-property feature-name 'type)
       (let ((str (symbol-name feature-name)))
@@ -128,10 +123,9 @@
       feature)))
 
 (defun www-get-feature-value (object feature)
-  (let ((genre (www-get-genre object))
-	(latest-feature (char-feature-name-at-domain feature '$rev=latest)))
+  (let ((latest-feature (char-feature-name-at-domain feature '$rev=latest)))
     (cond
-     ((eq genre 'character)
+     ((characterp object)
       (mount-char-attribute-table latest-feature)
       (or (char-feature object latest-feature)
 	  (char-feature object feature))