From: Jay Belanger Date: Mon, 2 May 2005 19:45:21 +0000 (+0000) Subject: (calc-do-grab-rectangle): Replace string-to-int by string-to-number. X-Git-Tag: ttn-vms-21-2-B4~564 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ca9cbc3193fc4a8853cbf02b089fdacda4174f78;p=emacs.git (calc-do-grab-rectangle): Replace string-to-int by string-to-number. --- diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el index c15724ccde7..84c117a1723 100644 --- a/lisp/calc/calc-yank.el +++ b/lisp/calc/calc-yank.el @@ -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 ;; Maintainer: Jay Belanger @@ -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)