mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-06 11:50:51 -08:00
Code Issues Projects Releases Wiki Activity

(math-add-bignum): Replace number by constant.

Browse source
This commit is contained in:
Jay Belanger 2007-07-06 03:58:00 +00:00
parent 3fa5c46284
commit 9ae06d96f6
2 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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 <cyd@stupidchicken.com>
* wid-edit.el (widget-documentation-string-value-create): Insert

4
lisp/calc/calc.el
View file

@ -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