From: morioka <morioka>
Date: Fri, 12 Nov 1999 09:04:53 +0000 (+0000)
Subject: (constant canna-version): New constant.
X-Git-Tag: emacs-canna-1_3~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f0470745c4314eca6f918250a07fa9ae44cfb0a2;p=elisp%2Femacs-canna.git

(constant canna-version): New constant.
(canna-rcs-version): Deleted.
(canna-version): Use constant `canna-version'.
---

diff --git a/canna.el b/canna.el
index 639268c..bb02483 100644
--- a/canna.el
+++ b/canna.el
@@ -7,7 +7,7 @@
 ;; Author: Akira Kon <kon@d1.bs2.mt.nec.co.jp>
 ;;         MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;         Stephen Turnbull <turnbull@sk.tsukuba.ac.jp>
-;; Version: $Revision: 1.19 $
+;; Version: $Revision: 1.20 $
 ;; Keywords: Canna, Japanese, input method, mule, multilingual
 
 ;; This file is part of Emacs-Canna.
@@ -59,19 +59,12 @@
 ;; (defalias 'self-insert-internal 'self-insert-command)
 ;; end
 
-(defconst canna-rcs-version
-  "$Id: canna.el,v 1.19 1999-05-24 09:07:30 morioka Exp $")
+(defconst canna-version "Emacs-Canna 1.3")
 
 (defun canna-version ()
   "Display version of canna.el in mini-buffer."
   (interactive)
-  (message (concat
-	    (substring canna-rcs-version
-		       5
-		       (if (string-match "[0-9] [a-z]" canna-rcs-version)
-			   (1+ (match-beginning 0))
-			 ))
-	    " ...")))
+  (message (concat canna-version " ...")))
 
 (if (featurep 'xemacs)
     (defun canna-self-insert-string (string)