From: yamaoka Date: Thu, 13 Apr 2000 07:55:07 +0000 (+0000) Subject: (gnus-revision-number): Increment to 18. X-Git-Tag: t-gnus-6_14_1-18~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=885de31956e8e95134dd5b5cc6f1ac5ff34324ff;p=elisp%2Fgnus.git- (gnus-revision-number): Increment to 18. (gnus-extended-version): Use `gnus-product-name' and `gnus-version-number' instead of the use of `product-string'. (gnus-version-number): Exclude `gnus-revision-number'. (Defining product): Include `gnus-revision-number'. (TopLevel): Require `poe' for the function `butlast'. --- diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index 8f43480..ef9b6ab 100644 --- a/lisp/gnus-vers.el +++ b/lisp/gnus-vers.el @@ -27,15 +27,18 @@ ;;; Code: +(require 'poe) (require 'product) (provide 'gnus-vers) -(defconst gnus-revision-number "17" +(defconst gnus-revision-number "18" "Revision number for this version of gnus.") ;; Product information of this gnus. (product-provide 'gnus-vers - (product-define "T-gnus" nil '(6 14 1))) + (product-define "T-gnus" nil + (list 6 14 1 + (string-to-number gnus-revision-number)))) (defconst gnus-original-version-number "5.8.3" "Version number for this version of Gnus.") @@ -48,10 +51,11 @@ (defconst gnus-product-name (product-name (product-find 'gnus-vers)) "Product name of this version of gnus.") -(defconst gnus-version-number (mapconcat - 'number-to-string - (product-version (product-find 'gnus-vers)) - ".") +(defconst gnus-version-number + (mapconcat + 'number-to-string + (butlast (product-version (product-find 'gnus-vers))) + ".") "Version number for this version of gnus.") (defconst gnus-version @@ -70,7 +74,7 @@ If ARG, insert string at point." (defun gnus-extended-version () "Stringified gnus version." - (concat (product-string 'gnus) + (concat gnus-product-name "/" gnus-version-number " (based on " gnus-original-product-name " v" gnus-original-version-number ")" (if (zerop (string-to-number gnus-revision-number))