From: Jay Belanger Date: Mon, 2 May 2005 19:44:43 +0000 (+0000) Subject: (calc-read-parse-table-part, calc-edit-macro-repeats): Replace X-Git-Tag: ttn-vms-21-2-B4~565 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fab112674d67a639238a842fe0e6e5d3cd87ed38;p=emacs.git (calc-read-parse-table-part, calc-edit-macro-repeats): Replace string-to-int by string-to-number. --- 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 ;; 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)