Mercurial > hg > xemacs-beta

comparison lisp/version.el @ 975:151d438d2d55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-08-28 05:36:20 by youngs] 2002-08-16 Steve Youngs <youngs@xemacs.org> * version.sh (xemacs_extra_name): New var to identify XEmacs version > release < next release. ie, release+cvs. * configure.in: Test for xemacs_extra_name. * configure: Re-generate. 2002-08-16 Steve Youngs <youngs@xemacs.org> * build-report.el (build-report-installation-version-regexp): Update to cater for 'xemacs-extra-name'. (build-report-version-file-regexp): Ditto. (build-report): Ditto. (build-report-installation-data): Ditto. (build-report-version-file-data): Ditto. * version.el (emacs-version): Test for 'xemacs-extra-name'. 2002-08-16 Steve Youngs <youngs@xemacs.org> * config.h.in (XEMACS_EXTRA_NAME): New. * emacs.c (vars_of_emacs): Use it.
author youngs
date Wed, 28 Aug 2002 05:36:34 +0000
parents 023b83f4e54b
children 9fec7fedbf1b
comparison
equal deleted inserted replaced
974:fce478afd5b4 975:151d438d2d55
34 (and emacs-beta-version (format "(beta%d)" emacs-beta-version)) 34 (and emacs-beta-version (format "(beta%d)" emacs-beta-version))
35 "Non-nil when this is a test (beta) version of XEmacs. 35 "Non-nil when this is a test (beta) version of XEmacs.
36 Warning, this variable did not exist in XEmacs versions prior to 20.3") 36 Warning, this variable did not exist in XEmacs versions prior to 20.3")
37 37
38 (defconst emacs-version 38 (defconst emacs-version
39 (format "%d.%d %s%s%s%s" 39 (format "%d.%d %s%s%s%s%s"
40 emacs-major-version 40 emacs-major-version
41 emacs-minor-version 41 emacs-minor-version
42 (if emacs-patch-level 42 (if emacs-patch-level
43 (format "(patch %d)" emacs-patch-level) 43 (format "(patch %d)" emacs-patch-level)
44 "") 44 "")
45 (if xemacs-betaname 45 (if xemacs-betaname
46 (concat " " xemacs-betaname) 46 (concat " " xemacs-betaname)
47 "") 47 "")
48 (if xemacs-codename 48 (if xemacs-codename
49 (concat " \"" xemacs-codename "\"") 49 (concat " \"" xemacs-codename "\"")
50 "")
51 (if xemacs-extra-name
52 (concat " " xemacs-extra-name)
50 "") 53 "")
51 " XEmacs Lucid") 54 " XEmacs Lucid")
52 "Version numbers of this version of XEmacs.") 55 "Version numbers of this version of XEmacs.")
53 56
54 (if (featurep 'infodock) 57 (if (featurep 'infodock)