From b6ad289a5524896a60427f8670fe8b2d6f58a01f Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 14 Oct 2010 12:01:37 +0900 Subject: [PATCH] (www-get-genre): Abolished. (www-get-feature-value): Don't use `www-get-genre'. --- cwiki-common.el | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) 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)) -- 1.7.10.4