From 6ec186d79737a704ad382596743364b75e9d4918 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Thu, 3 Apr 1997 18:52:22 +0000
Subject: [PATCH] (canna-version): New implementation.

---
 canna.el |   11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/canna.el b/canna.el
index aa497e1..947f188 100644
--- 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)
 
-- 
1.7.10.4