Mercurial > hg > xemacs-beta
comparison lisp/version.el @ 343:8bec6624d99b r21-1-1
Import from CVS: tag r21-1-1
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:52:53 +0200 |
parents | c42ec1d1cded |
children | 7c94d56991e1 |
comparison
equal
deleted
inserted
replaced
342:b036ce23deaa | 343:8bec6624d99b |
---|---|
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 (purecopy | 39 (purecopy |
40 (format "%d.%d %s%s%s" | 40 (format "%d.%d %s%s%s%s" |
41 emacs-major-version | 41 emacs-major-version |
42 emacs-minor-version | 42 emacs-minor-version |
43 (if xemacs-codename | 43 (if xemacs-codename |
44 (concat "\"" xemacs-codename "\"") | 44 (concat "\"" xemacs-codename "\"") |
45 "") | 45 "") |
46 " XEmacs Lucid" | 46 " XEmacs Lucid" |
47 (if emacs-patch-level | |
48 (format " (patch %d)" emacs-patch-level) | |
49 "") | |
47 (if xemacs-betaname | 50 (if xemacs-betaname |
48 (concat " " xemacs-betaname) | 51 (concat " " xemacs-betaname) |
49 ""))) | 52 ""))) |
50 "Version numbers of this version of XEmacs.") | 53 "Version numbers of this version of XEmacs.") |
51 | 54 |