mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-01-30 12:21:25 -08:00
(calc-do-grab-rectangle): Replace string-to-int by string-to-number.
This commit is contained in:
parent
fab112674d
commit
ca9cbc3193
1 changed files with 2 additions and 2 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue