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

diff --git a/cwiki-common.el b/cwiki-common.el
index bb339a6..e4f64e8 100644 (file)
--- 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)