From aaf8b055428b4ea9cd0eae50ffa383e14c51aca9 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Thu, 18 Mar 2010 22:14:05 +0900 Subject: [PATCH] (char-feature-name-sans-versions): New function. --- cwiki-common.el | 6 ++++++ 1 file changed, 6 insertions(+) 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) -- 1.7.10.4