Mercurial > emacs
changeset 62039:a17f83f2c421
(calc-do-grab-rectangle): Replace string-to-int by string-to-number.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Mon, 02 May 2005 19:45:21 +0000 |
| parents | a5b38402e3e1 |
| children | d9e11e28ebbb |
| files | lisp/calc/calc-yank.el |
| diffstat | 1 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calc/calc-yank.el Mon May 02 19:44:43 2005 +0000 +++ b/lisp/calc/calc-yank.el Mon May 02 19:45:21 2005 +0000 @@ -1,6 +1,6 @@ ;;; calc-yank.el --- kill-ring functionality 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> @@ -231,7 +231,7 @@ pos j))))) (if (string-match "\\` *-?[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]? *\\'" (car data)) - (setq vals (list 'vec (string-to-int (car data)))) + (setq vals (list 'vec (string-to-number (car data)))) (if (and (null arg) (string-match "[[{][^][{}]*[]}]" (car data))) (setq pos (match-beginning 0)