From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Thu, 18 Mar 2010 13:14:05 +0000 (+0900)
Subject: (char-feature-name-sans-versions): New function.
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aaf8b055428b4ea9cd0eae50ffa383e14c51aca9;p=chise%2Fest.git

(char-feature-name-sans-versions): New function.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index bb339a6..e4f64e8 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -65,6 +65,12 @@
       (intern (format "%s@%s" name domain))
       ))))
 
+(defun char-feature-name-sans-versions (feature)
+  (let ((feature-name (symbol-name feature)))
+    (if (string-match "[@/]\\$rev=latest$" feature-name)
+	(intern (substring feature-name 0 (match-beginning 0)))
+      feature)))
+
 (defun www-char-feature (character feature)
   (let ((latest-feature (char-feature-name-at-domain feature '$rev=latest)))
     (mount-char-attribute-table latest-feature)