(math-read-token): Replace string-to-int by string-to-number.

diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el
index a2d6e9dc88c762d0300b88f7bdcfb49bbd43d176..b947b597acfb1f43ac7b70e5a1bf61302cac60e5 100644 (file)
--- a/lisp/calc/calc-aent.el
+++ b/lisp/calc/calc-aent.el
@@ -1,6 +1,6 @@
 ;;; calc-aent.el --- algebraic entry functions for Calc
 
-;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
+;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, Inc.
 
 ;; Author: Dave Gillespie <daveg@synaptics.com>
 ;; Maintainer: Jay Belanger <belanger@truman.edu>
@@ -734,7 +734,7 @@ in Calc algebraic input.")
                       math-exp-pos (match-end 1))
               (if (eq (string-match "\\$\\([1-9][0-9]*\\)" math-exp-str math-exp-pos)
                       math-exp-pos)
-                  (setq math-expr-data (- (string-to-int (math-match-substring
+                  (setq math-expr-data (- (string-to-number (math-match-substring
                                                     math-exp-str 1))))
                 (string-match "\\$+" math-exp-str math-exp-pos)
                 (setq math-expr-data (- (match-end 0) (match-beginning 0))))
@@ -743,7 +743,7 @@ in Calc algebraic input.")
            ((eq ch ?\#)
             (if (eq (string-match "#\\([1-9][0-9]*\\)" math-exp-str math-exp-pos)
                     math-exp-pos)
-                (setq math-expr-data (string-to-int
+                (setq math-expr-data (string-to-number
                                 (math-match-substring math-exp-str 1))
                       math-exp-pos (match-end 0))
               (setq math-expr-data 1