From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Sat, 23 Jun 2007 04:36:29 +0000 (+0000)
Subject: (math-fixnum-big): Use the variable math-bignum-digit-size.
X-Git-Tag: emacs-pretest-23.0.90~12142
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b593f1de16112e8a59d1db61e1b2c52dce993a99;p=emacs.git

(math-fixnum-big): Use the variable math-bignum-digit-size.
---

diff --git a/lisp/calc/calc-ext.el b/lisp/calc/calc-ext.el
index 9650bdffbcf..2816941f87a 100644
--- a/lisp/calc/calc-ext.el
+++ b/lisp/calc/calc-ext.el
@@ -2222,7 +2222,7 @@ calc-kill calc-kill-region calc-yank))))
 
 (defun math-fixnum-big (a)
   (if (cdr a)
-      (+ (car a) (* (math-fixnum-big (cdr a)) 1000))
+      (+ (car a) (* (math-fixnum-big (cdr a)) math-bignum-digit-size))
     (car a)))
 
 (defvar math-simplify-only nil)