From: Jay Belanger <jay.p.belanger@gmail.com>
Date: Fri, 17 Aug 2007 20:18:16 +0000 (+0000)
Subject: (math-bignum-digit-length): Compute the appropriate value.
X-Git-Tag: emacs-pretest-23.0.90~11468
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37cecd78a0c473d992fa66b763d41034fc4719bb;p=emacs.git

(math-bignum-digit-length): Compute the appropriate value.
---

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 5377d4da75e..8e416293a45 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -2284,8 +2284,8 @@ See calc-keypad for details."
 
 
 
-(defconst math-bignum-digit-length 4
-;  (truncate (/ (log10 (/ most-positive-fixnum 2)) 2))
+(defconst math-bignum-digit-length 
+  (truncate (/ (log10 (/ most-positive-fixnum 2)) 2))
   "The length of a \"digit\" in Calc bignums.
 If a big integer is of the form (bigpos N0 N1 ...), this is the
 length of the allowable Emacs integers N0, N1,...