diff options
| author | Jay Belanger | 2005-05-02 19:41:27 +0000 |
|---|---|---|
| committer | Jay Belanger | 2005-05-02 19:41:27 +0000 |
| commit | 14e39ad48dd871738ea75ecbecc34636054a9f9d (patch) | |
| tree | 09d8d0ece27bd8ebe33af40b7512fdc5791f6c61 | |
| parent | 36692c4a90325481b9236a23efffd5ddca2d8319 (diff) | |
| download | emacs-14e39ad48dd871738ea75ecbecc34636054a9f9d.tar.gz emacs-14e39ad48dd871738ea75ecbecc34636054a9f9d.zip | |
(calc-word-size): Replace string-to-int by string-to-number.
| -rw-r--r-- | lisp/calc/calc-bin.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el index e960220c09b..445f9d28531 100644 --- a/lisp/calc/calc-bin.el +++ b/lisp/calc/calc-bin.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; calc-bin.el --- binary functions for Calc | 1 | ;;; calc-bin.el --- binary functions 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> |
| @@ -135,7 +135,7 @@ | |||
| 135 | (if (equal n "") | 135 | (if (equal n "") |
| 136 | calc-word-size | 136 | calc-word-size |
| 137 | (if (string-match "\\`[-+]?[0-9]+\\'" n) | 137 | (if (string-match "\\`[-+]?[0-9]+\\'" n) |
| 138 | (string-to-int n) | 138 | (string-to-number n) |
| 139 | (error "Expected an integer"))) | 139 | (error "Expected an integer"))) |
| 140 | (prefix-numeric-value n))) | 140 | (prefix-numeric-value n))) |
| 141 | (or (= n calc-word-size) | 141 | (or (= n calc-word-size) |