(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 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -24,15 +24,25 @@
 
 ;;; Code:
 
-(defconst mime-library-version
-  '("FLIM" "K\e.D\8eò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