Mercurial > hg > xemacs-beta

comparison lisp/version.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 28f395d8dc7a
children 5a88923fcbfe
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
20 20
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 XEmacs.") 26 ;; "Version numbers of this version of XEmacs.")
27 27
28 (defconst xemacs-codename "Oslo" 28 ;;(defconst xemacs-codename "Copenhagen"
29 "Release nickname, primarily useful for trial prereleases. 29 ;; "Release nickname, primarily useful for trial prereleases.
30 Warning, this variable did not exist in XEmacs versions prior to 20.3") 30 ;;Warning, this variable did not exist in XEmacs versions prior to 20.3")
31 31
32 (defconst xemacs-betaname "(beta7)" 32 ;;(defconst xemacs-betaname "(beta8)"
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 (defconst xemacs-betaname
37 (and emacs-beta-version (format "(beta%d)" emacs-beta-version))
33 "Non-nil when this is a test (beta) version of XEmacs. 38 "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") 39 Warning, this variable did not exist in XEmacs versions prior to 20.3")
35 40
36 (setq emacs-version (purecopy (concat emacs-version 41 (defconst emacs-version
37 " \"" 42 (purecopy
38 xemacs-codename 43 (format "%d.%d \"%s\"%s%s"
39 "\" XEmacs Lucid " 44 emacs-major-version
40 xemacs-betaname))) 45 emacs-minor-version
46 xemacs-codename
47 " XEmacs Lucid"
48 (if xemacs-betaname
49 (concat " " xemacs-betaname)
50 "")))
51 "Version numbers of this version of XEmacs.")
41 52
42 (defconst emacs-major-version 53 ;; Moved to C code as of XEmacs 20.3
43 (progn (or (string-match "^[0-9]+" emacs-version) 54 ;(defconst emacs-major-version
44 (error "emacs-version unparsable")) 55 ; (progn (or (string-match "^[0-9]+" emacs-version)
45 (string-to-int (match-string 0 emacs-version))) 56 ; (error "emacs-version unparsable"))
46 "Major version number of this version of Emacs, as an integer. 57 ; (string-to-int (match-string 0 emacs-version)))
47 Warning, this variable did not exist in Emacs versions earlier than: 58 ; "Major version number of this version of Emacs, as an integer.
48 FSF Emacs: 19.23 59 ;Warning, this variable did not exist in Emacs versions earlier than:
49 XEmacs: 19.10") 60 ; FSF Emacs: 19.23
61 ; XEmacs: 19.10")
50 62
51 (defconst emacs-minor-version 63 ;; Moved to C code as of XEmacs 20.3
52 (progn (or (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version) 64 ;(defconst emacs-minor-version
53 (error "emacs-version unparsable")) 65 ; (progn (or (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version)
54 (string-to-int (match-string 1 emacs-version))) 66 ; (error "emacs-version unparsable"))
55 "Minor version number of this version of Emacs, as an integer. 67 ; (string-to-int (match-string 1 emacs-version)))
56 Warning, this variable did not exist in Emacs versions earlier than: 68 ; "Minor version number of this version of Emacs, as an integer.
57 FSF Emacs: 19.23 69 ;Warning, this variable did not exist in Emacs versions earlier than:
58 XEmacs: 19.10") 70 ; FSF Emacs: 19.23
71 ; XEmacs: 19.10")
59 72
60 (defconst emacs-build-time (current-time-string) 73 (defconst emacs-build-time (current-time-string)
61 "Time at which Emacs was dumped out.") 74 "Time at which Emacs was dumped out.")
62 75
63 (defconst emacs-build-system (system-name)) 76 (defconst emacs-build-system (system-name))