diff options
author | Jay Belanger <jay.p.belanger@gmail.com> | 2009-07-03 01:55:40 +0000 |
---|---|---|
committer | Jay Belanger <jay.p.belanger@gmail.com> | 2009-07-03 01:55:40 +0000 |
commit | 654e2858c19fbdafbba19f0928beefa5ec51130e (patch) | |
tree | 65979787001d2d129704b716b2d1b55ebab24d9a | |
parent | c818ff61bf647ab5e4f5b79262e17e916b60c099 (diff) | |
download | emacs-654e2858c19fbdafbba19f0928beefa5ec51130e.tar.gz |
(math-use-emacs-fn): Make sure that the number is formatted correctly.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/calc/calc-math.el | 6 |
2 files changed, 10 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e323c843a2e..a07328a8303 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-07-03 Jay Belanger <jay.p.belanger@gmail.com> + + * calc-math.el (math-use-emacs-fn): Make sure that the number is + formatted correctly. + 2009-07-02 Nick Roberts <nickrob@snap.net.nz> * progmodes/gdb-ui.el (def-gdb-auto-update-handler) diff --git a/lisp/calc/calc-math.el b/lisp/calc/calc-math.el index c8e8cc1f052..0f934e0af77 100644 --- a/lisp/calc/calc-math.el +++ b/lisp/calc/calc-math.el @@ -106,7 +106,11 @@ If this can't be done, return NIL." (number-to-string (funcall fn (string-to-number - (let ((calc-number-radix 10)) + (let + ((calc-number-radix 10) + (calc-float-format (list 'float calc-internal-prec)) + (calc-group-digits nil) + (calc-point-char ".")) (math-format-number (math-float x))))))) (error nil)))))) |