diff options
author | Jay Belanger <[email protected]> | 2005-05-02 19:40:50 +0000 |
---|---|---|
committer | Jay Belanger <[email protected]> | 2005-05-02 19:40:50 +0000 |
commit | 36692c4a90325481b9236a23efffd5ddca2d8319 (patch) | |
tree | 86561738000fff5428bc59ce3d8d0b8bee49ffd1 /lisp/calc/calc-aent.el | |
parent | 0124c5bdea37ac8b42b22472e3a0dcfbf7ea795a (diff) |
(math-read-token): Replace string-to-int by string-to-number.
Diffstat (limited to 'lisp/calc/calc-aent.el')
-rw-r--r-- | lisp/calc/calc-aent.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/calc/calc-aent.el b/lisp/calc/calc-aent.el index a2d6e9dc88..b947b597ac 100644 --- 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 <[email protected]> ;; Maintainer: Jay Belanger <[email protected]> @@ -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 |