diff options
| author | Colin Walters <walters@gnu.org> | 2002-04-14 01:51:15 +0000 |
|---|---|---|
| committer | Colin Walters <walters@gnu.org> | 2002-04-14 01:51:15 +0000 |
| commit | 23cbf556abc3fa698228c250f84cccf9187e03c3 (patch) | |
| tree | f612a8dd0a26c5f431c08323aba49db0927ee15d /lisp/calc/calc-bin.el | |
| parent | 57c9cc3ee1c9c375535fb35f33588b8eced9292a (diff) | |
| download | emacs-23cbf556abc3fa698228c250f84cccf9187e03c3.tar.gz | |
(math-format-radix-float): Load `calc-ext' before we call `math-group-float'.
Diffstat (limited to 'lisp/calc/calc-bin.el')
| -rw-r--r-- | lisp/calc/calc-bin.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/calc/calc-bin.el b/lisp/calc/calc-bin.el index e97c97828c4..16834483d7e 100644 --- a/lisp/calc/calc-bin.el +++ b/lisp/calc/calc-bin.el @@ -676,8 +676,9 @@ (setq str (substring str 1) int (math-add int 1)))) (setq str (concat (math-format-number int) point str))) - (if calc-group-digits - (setq str (math-group-float str)))) + (when calc-group-digits + (require 'calc-ext) + (setq str (math-group-float str)))) (setq figs 0)))) (or str (let* ((prec calc-internal-prec) @@ -745,8 +746,8 @@ (while (eq (aref str (1- pos)) ?0) (setq pos (1- pos))) (and explo (eq (aref str (1- pos)) ?.) (setq pos (1- pos))) (setq str (substring str 0 pos)) - (if calc-group-digits - (setq str (math-group-float str))) + (when calc-group-digits + (setq str (math-group-float str))) (if explo (let ((estr (let ((calc-number-radix 10) (calc-group-digits nil)) |