diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-02 19:44:43 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-02 19:44:43 +0000 |
| commit | fab112674d67a639238a842fe0e6e5d3cd87ed38 (patch) | |
| tree | 9c9989162b7b71579f0ea5ae771688ec539a656c /lisp/calc | |
| parent | 723c2377e838218e7689c7ab6943dccce71c40ed (diff) | |
| download | emacs-fab112674d67a639238a842fe0e6e5d3cd87ed38.tar.gz | |
(calc-read-parse-table-part, calc-edit-macro-repeats): Replace
string-to-int by string-to-number.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-prog.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index 05ec668cce9..01ca770ba27 100644 --- a/lisp/calc/calc-prog.el +++ b/lisp/calc/calc-prog.el @@ -1,6 +1,6 @@ ;;; calc-prog.el --- user programmability 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: David Gillespie <daveg@synaptics.com> ;; Maintainer: Jay Belanger <belanger@truman.edu> @@ -637,7 +637,7 @@ (setq part (nconc part (list (if (= (match-beginning 1) (match-end 1)) 0 - (string-to-int + (string-to-number (buffer-substring (1+ (match-beginning 1)) (match-end 1))))))) @@ -727,7 +727,7 @@ (goto-char calc-edit-top) (while (re-search-forward "^\\([0-9]+\\)\\*" nil t) - (let ((num (string-to-int (match-string 1))) + (let ((num (string-to-number (match-string 1))) (line (buffer-substring (point) (line-end-position)))) (goto-char (line-beginning-position)) (kill-line 1) |