From fab112674d67a639238a842fe0e6e5d3cd87ed38 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Mon, 2 May 2005 19:44:43 +0000 Subject: (calc-read-parse-table-part, calc-edit-macro-repeats): Replace string-to-int by string-to-number. --- lisp/calc/calc-prog.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/calc') diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el index 05ec668cce..01ca770ba2 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 ;; Maintainer: Jay Belanger @@ -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) -- cgit v1.2.3