Mercurial > hg > xemacs-beta

comparison lisp/version.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 8de8e3f6228a
children 023b83f4e54b
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
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 (purecopy 39 (format "%d.%d %s%s%s%s"
40 (format "%d.%d %s%s%s%s" 40 emacs-major-version
41 emacs-major-version 41 emacs-minor-version
42 emacs-minor-version 42 (if emacs-patch-level
43 (if emacs-patch-level 43 (format "(patch %d)" emacs-patch-level)
44 (format "(patch %d)" emacs-patch-level) 44 "")
45 "") 45 (if xemacs-betaname
46 (if xemacs-betaname 46 (concat " " xemacs-betaname)
47 (concat " " xemacs-betaname) 47 "")
48 "") 48 (if xemacs-codename
49 (if xemacs-codename 49 (concat " \"" xemacs-codename "\"")
50 (concat " \"" xemacs-codename "\"") 50 "")
51 "") 51 " XEmacs Lucid")
52 " XEmacs Lucid"))
53 "Version numbers of this version of XEmacs.") 52 "Version numbers of this version of XEmacs.")
54 53
55 (if (featurep 'infodock) 54 (if (featurep 'infodock)
56 (require 'id-vers)) 55 (require 'id-vers))
57 56
129 128
130 ;; Put the emacs version number into the `pure[]' array in a form that 129 ;; Put the emacs version number into the `pure[]' array in a form that
131 ;; `what(1)' can extract from the executable or a core file. We don't 130 ;; `what(1)' can extract from the executable or a core file. We don't
132 ;; actually need this to be pointed to from lisp; pure objects can't 131 ;; actually need this to be pointed to from lisp; pure objects can't
133 ;; be GCed. 132 ;; be GCed.
134 (purecopy (concat "\n@" "(#)" (emacs-version) 133 (concat "\n@" "(#)" (emacs-version)
135 "\n@" "(#)" "Configuration: " 134 "\n@" "(#)" "Configuration: "
136 system-configuration "\n")) 135 system-configuration "\n")
137 136
138 ;;Local variables: 137 ;;Local variables:
139 ;;version-control: never 138 ;;version-control: never
140 ;;End: 139 ;;End:
141 140