diff options
| author | Jay Belanger | 2005-05-02 19:45:21 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-05-02 19:45:21 +0000 |
| commit | ca9cbc3193fc4a8853cbf02b089fdacda4174f78 (patch) | |
| tree | ebbf4c5986977e3885577bfb54fea39ed1270119 | |
| parent | fab112674d67a639238a842fe0e6e5d3cd87ed38 (diff) | |
| download | emacs-ca9cbc3193fc4a8853cbf02b089fdacda4174f78.tar.gz emacs-ca9cbc3193fc4a8853cbf02b089fdacda4174f78.zip | |
(calc-do-grab-rectangle): Replace string-to-int by string-to-number.
| -rw-r--r-- | lisp/calc/calc-yank.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 @@ | |||
| 1 | ;;; calc-yank.el --- kill-ring functionality for Calc | 1 | ;;; calc-yank.el --- kill-ring functionality for Calc |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2005 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: David Gillespie <daveg@synaptics.com> | 5 | ;; Author: David Gillespie <daveg@synaptics.com> |
| 6 | ;; Maintainer: Jay Belanger <belanger@truman.edu> | 6 | ;; Maintainer: Jay Belanger <belanger@truman.edu> |
| @@ -231,7 +231,7 @@ | |||
| 231 | pos j))))) | 231 | pos j))))) |
| 232 | (if (string-match "\\` *-?[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]? *\\'" | 232 | (if (string-match "\\` *-?[0-9][0-9]?[0-9]?[0-9]?[0-9]?[0-9]? *\\'" |
| 233 | (car data)) | 233 | (car data)) |
| 234 | (setq vals (list 'vec (string-to-int (car data)))) | 234 | (setq vals (list 'vec (string-to-number (car data)))) |
| 235 | (if (and (null arg) | 235 | (if (and (null arg) |
| 236 | (string-match "[[{][^][{}]*[]}]" (car data))) | 236 | (string-match "[[{][^][{}]*[]}]" (car data))) |
| 237 | (setq pos (match-beginning 0) | 237 | (setq pos (match-beginning 0) |