From 8acce5d66773518ea139f305addc801e93bb18ce Mon Sep 17 00:00:00 2001 From: morioka Date: Tue, 6 Oct 1998 17:17:48 +0000 Subject: [PATCH] (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'. --- mime-def.el | 24 +++++++++++++++++------- 1 file changed, 17 insertions(+), 7 deletions(-) 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 -- 1.7.10.4