From: Jay Belanger Date: Mon, 2 May 2005 19:41:27 +0000 (+0000) Subject: (calc-word-size): Replace string-to-int by string-to-number. X-Git-Tag: ttn-vms-21-2-B4~570 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=14e39ad48dd871738ea75ecbecc34636054a9f9d;p=emacs.git (calc-word-size): Replace string-to-int by string-to-number. --- 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 ;; Maintainer: Jay Belanger @@ -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)