Mercurial > emacs
changeset 62038:a5b38402e3e1
(calc-read-parse-table-part, calc-edit-macro-repeats): Replace
string-to-int by string-to-number.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Mon, 02 May 2005 19:44:43 +0000 |
| parents | 3947739eeeb9 |
| children | a17f83f2c421 |
| files | lisp/calc/calc-prog.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-prog.el Mon May 02 19:44:07 2005 +0000 +++ b/lisp/calc/calc-prog.el Mon May 02 19:44:43 2005 +0000 @@ -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)