Mercurial > emacs

comparison lisp/version.el @ 76234:8e2b98658b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(emacs-major-version, emacs-minor-version): string-to-int -> string-to-number.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 28 Feb 2007 16:28:16 +0000
parents 323348e2f43f
children 2af668ab629d
comparison
equal deleted inserted replaced
76233:121fd51d6c13 76234:8e2b98658b15
30 (defconst emacs-version "22.0.94" "\ 30 (defconst emacs-version "22.0.94" "\
31 Version numbers of this version of Emacs.") 31 Version numbers of this version of Emacs.")
32 32
33 (defconst emacs-major-version 33 (defconst emacs-major-version
34 (progn (string-match "^[0-9]+" emacs-version) 34 (progn (string-match "^[0-9]+" emacs-version)
35 (string-to-int (match-string 0 emacs-version))) 35 (string-to-number (match-string 0 emacs-version)))
36 "Major version number of this version of Emacs. 36 "Major version number of this version of Emacs.
37 This variable first existed in version 19.23.") 37 This variable first existed in version 19.23.")
38 38
39 (defconst emacs-minor-version 39 (defconst emacs-minor-version
40 (progn (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version) 40 (progn (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version)
41 (string-to-int (match-string 1 emacs-version))) 41 (string-to-number (match-string 1 emacs-version)))
42 "Minor version number of this version of Emacs. 42 "Minor version number of this version of Emacs.
43 This variable first existed in version 19.23.") 43 This variable first existed in version 19.23.")
44 44
45 (defconst emacs-build-time (current-time) "\ 45 (defconst emacs-build-time (current-time) "\
46 Time at which Emacs was dumped out.") 46 Time at which Emacs was dumped out.")
90 90
91 ;;Local variables: 91 ;;Local variables:
92 ;;version-control: never 92 ;;version-control: never
93 ;;End: 93 ;;End:
94 94
95 ;;; arch-tag: e60dc445-6218-4a4c-a7df-f15a818642a0 95 ;; arch-tag: e60dc445-6218-4a4c-a7df-f15a818642a0
96 ;;; version.el ends here 96 ;;; version.el ends here