Mercurial > emacs

changeset 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 121fd51d6c13
children 68aa1beabc09
files lisp/ChangeLog lisp/version.el
diffstat 2 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Feb 28 13:01:34 2007 +0000
+++ b/lisp/ChangeLog	Wed Feb 28 16:28:16 2007 +0000
@@ -1,3 +1,8 @@
+2007-02-28  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* version.el (emacs-major-version, emacs-minor-version):
+	string-to-int -> string-to-number.
+
 2007-02-28  Juanma Barranquero  <lekktu@gmail.com>
 
 	* help.el (where-is): Fail gracefully when not passed a command.
--- a/lisp/version.el	Wed Feb 28 13:01:34 2007 +0000
+++ b/lisp/version.el	Wed Feb 28 16:28:16 2007 +0000
@@ -32,13 +32,13 @@
 
 (defconst emacs-major-version
   (progn (string-match "^[0-9]+" emacs-version)
-	 (string-to-int (match-string 0 emacs-version)))
+	 (string-to-number (match-string 0 emacs-version)))
   "Major version number of this version of Emacs.
 This variable first existed in version 19.23.")
 
 (defconst emacs-minor-version
   (progn (string-match "^[0-9]+\\.\\([0-9]+\\)" emacs-version)
-	 (string-to-int (match-string 1 emacs-version)))
+	 (string-to-number (match-string 1 emacs-version)))
   "Minor version number of this version of Emacs.
 This variable first existed in version 19.23.")
 
@@ -92,5 +92,5 @@
 ;;version-control: never
 ;;End:
 
-;;; arch-tag: e60dc445-6218-4a4c-a7df-f15a818642a0
+;; arch-tag: e60dc445-6218-4a4c-a7df-f15a818642a0
 ;;; version.el ends here