procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(math-smallest-emacs-expt): Make the computation more robust.

Browse source
This commit is contained in:
Jay Belanger 2007-10-01 02:53:29 +00:00
parent cf9e567f96
commit f1640784ad
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/calc/calc-math.el
View file

@ -69,12 +69,12 @@
(defvar math-smallest-emacs-expt
(let ((x -1))
(while (condition-case nil
(expt 10.0 x)
(> (expt 10.0 x) 0.0)
(error nil))
(setq x (* 2 x)))
(setq x (/ x 2))
(while (condition-case nil
(expt 10.0 x)
(> (expt 10.0 x) 0.0)
(error nil))
(setq x (1- x)))
(+ x 2))