From: morioka <morioka>
Date: Thu, 3 Apr 1997 18:52:22 +0000 (+0000)
Subject: (canna-version): New implementation.
X-Git-Tag: emacs-canna-199811302358~32
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6ec186d79737a704ad382596743364b75e9d4918;p=elisp%2Femacs-canna.git

(canna-version): New implementation.
---

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)