Mercurial > hg > xemacs-beta

comparison lisp/version.el @ 157:6b37e6ddd302 r20-3b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b5
author cvs
date Mon, 13 Aug 2007 09:40:41 +0200
parents 43dd3413c7c7
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
156:60baf0b43294 157:6b37e6ddd302
21 ;;; Synched up with: FSF 19.34. 21 ;;; Synched up with: FSF 19.34.
22 22
23 ;;; Code: 23 ;;; Code:
24 24
25 (defconst emacs-version "20.3" 25 (defconst emacs-version "20.3"
26 "Version numbers of this version of Emacs.") 26 "Version numbers of this version of XEmacs.")
27 27
28 (setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid (beta4)"))) 28 (defconst xemacs-codename "Zagreb"
29 "Release nickname, primarily useful for trial prereleases.
30 Warning, this variable did not exist in XEmacs versions prior to 20.3")
31
32 (defconst xemacs-betaname "(beta5)"
33 "Non-nil when this is a test (beta) version of XEmacs.
34 Warning, this variable did not exist in XEmacs versions prior to 20.3")
35
36 (setq emacs-version (purecopy (concat emacs-version
37 " \""
38 xemacs-codename
39 "\" XEmacs Lucid "
40 xemacs-betaname)))
29 41
30 (defconst emacs-major-version 42 (defconst emacs-major-version
31 (progn (or (string-match "^[0-9]+" emacs-version) 43 (progn (or (string-match "^[0-9]+" emacs-version)
32 (error "emacs-version unparsable")) 44 (error "emacs-version unparsable"))
33 (string-to-int (match-string 0 emacs-version))) 45 (string-to-int (match-string 0 emacs-version)))