(canna-version): New implementation.

diff --git a/canna.el b/canna.el
index aa497e1..947f188 100644 (file)
--- a/canna.el
+++ b/canna.el
@@ -37,11 +37,18 @@
 ;; end
 
 (defconst canna-rcs-version
-  "$Id: canna.el,v 1.4 1997-04-03 18:35:51 morioka Exp $")
+  "$Id: canna.el,v 1.5 1997-04-03 18:52:22 morioka Exp $")
 
 (defun canna-version ()
+  "Display version of canna.el in mini-buffer."
   (interactive)
-  (message (concat (substring canna-rcs-version 0 72) " ...")) )
+  (message (concat
+           (substring canna-rcs-version
+                      5
+                      (if (string-match "[0-9] [a-z]" canna-rcs-version)
+                          (1+ (match-beginning 0))
+                        ))
+           " ...")))
 
 (provide 'canna)