diff options
| author | Jay Belanger | 2007-06-23 04:36:29 +0000 |
|---|---|---|
| committer | Jay Belanger | 2007-06-23 04:36:29 +0000 |
| commit | b593f1de16112e8a59d1db61e1b2c52dce993a99 (patch) | |
| tree | 5c5b81afa89ea73ae03ffff41a179309fa6f6a81 | |
| parent | e72e768b75b01340f3e9d190cb0927e7fa1c3733 (diff) | |
| download | emacs-b593f1de16112e8a59d1db61e1b2c52dce993a99.tar.gz emacs-b593f1de16112e8a59d1db61e1b2c52dce993a99.zip | |
(math-fixnum-big): Use the variable math-bignum-digit-size.
| -rw-r--r-- | lisp/calc/calc-ext.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) | |||
| 2222 | 2222 | ||
| 2223 | (defun math-fixnum-big (a) | 2223 | (defun math-fixnum-big (a) |
| 2224 | (if (cdr a) | 2224 | (if (cdr a) |
| 2225 | (+ (car a) (* (math-fixnum-big (cdr a)) 1000)) | 2225 | (+ (car a) (* (math-fixnum-big (cdr a)) math-bignum-digit-size)) |
| 2226 | (car a))) | 2226 | (car a))) |
| 2227 | 2227 | ||
| 2228 | (defvar math-simplify-only nil) | 2228 | (defvar math-simplify-only nil) |