Mercurial > emacs
changeset 62032:e570688e1d80
(math-read-token): Replace string-to-int by string-to-number.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Mon, 02 May 2005 19:40:50 +0000 |
| parents | 6a5a0dbb211d |
| children | 729b3756f347 |
| files | lisp/calc/calc-aent.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-aent.el Mon May 02 17:10:29 2005 +0000 +++ b/lisp/calc/calc-aent.el Mon May 02 19:40:50 2005 +0000 @@ -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 @@ 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 @@ ((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