(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 (file)
--- 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))