summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJay Belanger <jay.p.belanger@gmail.com>2009-07-03 01:55:40 +0000
committerJay Belanger <jay.p.belanger@gmail.com>2009-07-03 01:55:40 +0000
commit654e2858c19fbdafbba19f0928beefa5ec51130e (patch)
tree65979787001d2d129704b716b2d1b55ebab24d9a
parentc818ff61bf647ab5e4f5b79262e17e916b60c099 (diff)
downloademacs-654e2858c19fbdafbba19f0928beefa5ec51130e.tar.gz
(math-use-emacs-fn): Make sure that the number is formatted correctly.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/calc/calc-math.el6
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))))))