From 949990651389b160d1415c1a426494fa7733365f Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 11 Oct 2000 01:28:37 +0000 Subject: [PATCH] * elmo-version.el (toplevel): Use product-version-as-string for set verstion-string, if defined. --- elmo/ChangeLog | 5 +++++ elmo/elmo-version.el | 11 +++++++---- 2 files changed, 12 insertions(+), 4 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index acbd182..2ce30bc 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2000-10-11 TAKAHASHI Kaoru + + * elmo-version.el (toplevel): Use product-version-as-string for set + verstion-string, if defined. + 2000-10-11 OKAZAKI Tetsurou * elmo-util.el: Doc fixes. diff --git a/elmo/elmo-version.el b/elmo/elmo-version.el index a1d631f..d7f4c54 100644 --- a/elmo/elmo-version.el +++ b/elmo/elmo-version.el @@ -34,8 +34,13 @@ (product-provide 'elmo-version (product-define "ELMO" nil '(2 3 0))) +;; set version-string +(if (fboundp 'product-version-as-string) + (product-version-as-string 'elmo-version) + (product-string-1 'elmo-version)) + (defun elmo-version () - "Print ELMO version." + "Return ELMO version." (product-string-1 'elmo-version)) @@ -45,9 +50,7 @@ 'elmo-appname "use (product-name (product-find 'elmo-version)) insteaed.") -(defconst elmo-version - (progn (product-string-1 'elmo-version) ; product-set-version-string - (product-version-string (product-find 'elmo-version)))) +(defconst elmo-version (product-version-string (product-find 'elmo-version))) (make-obsolete-variable 'elmo-version "use (product-version-string (product-find 'elmo-version)) instead.") -- 1.7.10.4