From: Jay Belanger Date: Fri, 6 Jul 2007 03:58:00 +0000 (+0000) Subject: (math-add-bignum): Replace number by constant. X-Git-Tag: emacs-pretest-23.0.90~12035 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ae06d96f6c1a35ef6c663165b226af7ea6ecfc4;p=emacs.git (math-add-bignum): Replace number by constant. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8ed55f6a515..047be6d9e9e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -12,6 +12,8 @@ instead of their values. (math-clip): Use math-small-integer-size instead of its value. + * calc/calc.el (math-add-bignum): Replace number by constant. + 2007-07-05 Chong Yidong * wid-edit.el (widget-documentation-string-value-create): Insert diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 78d6231cb15..d81c1070b9f 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -2780,7 +2780,7 @@ largest Emacs integer.") (progn (setcar aa (1+ sum)) (setq carry nil)) - (setcar aa (+ sum -999))) + (setcar aa (- sum (1- math-bignum-digit-size)))) (if (< (setq sum (+ (car aa) (car b))) math-bignum-digit-size) (setcar aa sum) (setcar aa (- sum math-bignum-digit-size)) @@ -2790,7 +2790,7 @@ largest Emacs integer.") (if carry (if b (nconc a (math-add-bignum b '(1))) - (while (eq (car aa) 999) + (while (eq (car aa) (1- math-bignum-digit-size)) (setcar aa 0) (setq aa (cdr aa))) (if aa