Mercurial > hg > xemacs-beta

comparison lisp/version.el @ 50:ee648375d8d6 r19-16b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b91
author cvs
date Mon, 13 Aug 2007 08:56:41 +0200
parents 56c54cf7c5b6
children 461c7ba8286a
comparison
equal deleted inserted replaced
49:b46643e427ac 50:ee648375d8d6
21 21
22 ;;; Code: 22 ;;; Code:
23 23
24 ;; The following line is modified automatically 24 ;; The following line is modified automatically
25 ;; by loading inc-version.el, each time a new Emacs is dumped. 25 ;; by loading inc-version.el, each time a new Emacs is dumped.
26 (defconst emacs-version "19.16" "\ 26 ;; (defconst emacs-version "19.16" "\
27 Version numbers of this version of Emacs.") 27 ;; Version numbers of this version of Emacs.")
28 28
29 (setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid (beta90)"))) 29 ;; (setq emacs-version (purecopy (concat emacs-version " XEmacs Lucid (beta90)")))
30 30
31 (defconst emacs-major-version 31 ;(defconst emacs-major-version
32 (progn (or (string-match "^[0-9]+" emacs-version) 32 ; (progn (or (string-match "^[0-9]+" emacs-version)
33 (error "emacs-version unparsable")) 33 ; (error "emacs-version unparsable"))
34 (string-to-int (match-string 0 emacs-version))) 34 ; (string-to-int (match-string 0 emacs-version)))
35 "Major version number of this version of Emacs, as an integer. 35 ; "Major version number of this version of Emacs, as an integer.
36 Warning, this variable did not exist in Emacs versions earlier than: 36 ;Warning, this variable did not exist in Emacs versions earlier than:
37 FSF Emacs: 19.23 37 ; FSF Emacs: 19.23
38 XEmacs: 19.10") 38 ; XEmacs: 19.10")
39 39
40 (defconst emacs-minor-version 40 ;(defconst emacs-minor-version
41 (progn (or (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version) 41 ; (progn (or (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version)
42 (error "emacs-version unparsable")) 42 ; (error "emacs-version unparsable"))
43 (string-to-int (match-string 1 emacs-version))) 43 ; (string-to-int (match-string 1 emacs-version)))
44 "Minor version number of this version of Emacs, as an integer. 44 ; "Minor version number of this version of Emacs, as an integer.
45 Warning, this variable did not exist in Emacs versions earlier than: 45 ;Warning, this variable did not exist in Emacs versions earlier than:
46 FSF Emacs: 19.23 46 ; FSF Emacs: 19.23
47 XEmacs: 19.10") 47 ; XEmacs: 19.10")
48 48
49 (defconst emacs-build-time (current-time-string) "\ 49 (defconst emacs-build-time (current-time-string) "\
50 Time at which Emacs was dumped out.") 50 Time at which Emacs was dumped out.")
51 51
52 (defconst emacs-build-system (system-name)) 52 (defconst emacs-build-system (system-name))
53
54 (defconst xemacs-betaname "(beta91)"
55 "Non-nil when this is a test (beta) version of XEmacs.
56 Warning, this variable did not exist in XEmacs versions prior to 20.3")
57
58 (defconst xemacs-codename ""
59 "This only works in XEmacs 20.3 or greater.")
60
61 (defconst emacs-version
62 (purecopy
63 (format "%d.%d \"%s\"%s%s"
64 emacs-major-version
65 emacs-minor-version
66 xemacs-codename
67 " XEmacs Lucid"
68 (if xemacs-betaname
69 (concat " " xemacs-betaname)
70 "")))
71 "Version numbers of this version of XEmacs.")
72
53 73
54 (defun emacs-version (&optional here) "\ 74 (defun emacs-version (&optional here) "\
55 Return string describing the version of Emacs that is running. 75 Return string describing the version of Emacs that is running.
56 If optional argument HERE is non-nil, insert string at point. 76 If optional argument HERE is non-nil, insert string at point.
57 Don't use this function in programs to choose actions according 77 Don't use this function in programs to choose actions according