(calc-do-grab-rectangle): Replace string-to-int by string-to-number.

ca9cbc31 · Jay Belanger · fab11267 · ca9cbc31
Commit ca9cbc31 authored May 02, 2005 by Jay Belanger
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

lisp/calc/calc-yank.el lisp/calc/calc-yank.el +2 -2

No files found.
--- a/lisp/calc/calc-yank.el
+++ b/lisp/calc/calc-yank.el
 ;;; 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)