From 9ae06d96f6c1a35ef6c663165b226af7ea6ecfc4 Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Fri, 6 Jul 2007 03:58:00 +0000 Subject: [PATCH] (math-add-bignum): Replace number by constant. --- lisp/ChangeLog | 2 ++ lisp/calc/calc.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) 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 -- 2.39.5