diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-02 19:41:27 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-02 19:41:27 +0000 |
| commit | 4e4e11d76cf7af16dd81e5c00f986042baed820b (patch) | |
| tree | 2fcbcbc2920a2ccd019d7c91c00bd594fdb34f69 | |
| parent | fda559508b4f642a3aa6cef0d90652589f230dbc (diff) | |
| download | emacs-4e4e11d76cf7af16dd81e5c00f986042baed820b.tar.gz | |
(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 @@ ;;; calc-bin.el --- binary functions 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> @@ -135,7 +135,7 @@ (if (equal n "") calc-word-size (if (string-match "\\`[-+]?[0-9]+\\'" n) - (string-to-int n) + (string-to-number n) (error "Expected an integer"))) (prefix-numeric-value n))) (or (= n calc-word-size) |