From: morioka <morioka>
Date: Tue, 6 Oct 1998 17:17:48 +0000 (+0000)
Subject: (mime-library-product): New variable; abolish `mime-library-version'.
X-Git-Tag: flim-1_10_1~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8acce5d66773518ea139f305addc801e93bb18ce;p=elisp%2Fflim.git

(mime-library-product): New variable; abolish `mime-library-version'.
(mime-product-name): New macro.
(mime-product-version): New macro.
(mime-product-code-name): New macro.
(mime-library-version): Renamed from `mime-library-version-string';
use `mime-library-product', `mime-product-name',
`mime-product-version' and `mime-product-code-name'.
---

diff --git a/mime-def.el b/mime-def.el
index 567dee9..1751aea 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -24,15 +24,25 @@
 
 ;;; Code:
 
-(defconst mime-library-version
-  '("FLIM" "K.DŽòdo" 1 10 0)
-  "Implementation name, version name and numbers of MIME-library package.")
+(defconst mime-library-product
+  ["FLIM" (1 10 1) "Miyamaki"]
+  "Product name, version number and code name of MIME-library package.")
+
+(defmacro mime-product-name (product)
+  `(aref ,product 0))
+
+(defmacro mime-product-version (product)
+  `(aref ,product 1))
 
-(defconst mime-library-version-string
-  `,(concat (car mime-library-version) " "
+(defmacro mime-product-code-name (product)
+  `(aref ,product 2))
+
+(defconst mime-library-version
+  (eval-when-compile
+    (concat (mime-product-name mime-library-product) " "
 	    (mapconcat #'number-to-string
-		       (cddr mime-library-version) ".")
-	    " - \"" (cadr mime-library-version) "\""))
+		       (mime-product-version mime-library-product) ".")
+	    " - \"" (mime-product-code-name mime-library-product) "\"")))
 
 
 ;;; @ variables