Mercurial > emacs
diff lisp/calc/calc.el @ 44574:f9b633c7d323
(math-format-number): Load `calc-ext' before we call
`math-group-float'.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Sun, 14 Apr 2002 05:50:05 +0000 |
| parents | 592d5021b99f |
| children | 73f6b3b88ae9 |
line wrap: on
line diff
--- a/lisp/calc/calc.el Sun Apr 14 05:48:09 2002 +0000 +++ b/lisp/calc/calc.el Sun Apr 14 05:50:05 2002 +0000 @@ -3145,8 +3145,9 @@ (setq str (concat (substring str 0 (- figs)) point (substring str (- figs)))) (setq str (concat str point))) - (if calc-group-digits - (setq str (math-group-float str)))) + (when calc-group-digits + (require 'calc-ext) + (setq str (math-group-float str)))) (if (< figs 0) (setq figs (+ calc-internal-prec figs))) (if (> figs 0) @@ -3174,8 +3175,9 @@ (t ; (< dpos 0) (setq str (concat "0" point (make-string (- dpos) ?0) str)))) - (if calc-group-digits - (setq str (math-group-float str)))) + (when calc-group-digits + (require 'calc-ext) + (setq str (math-group-float str)))) (let* ((eadj (+ exp len)) (scale (if (eq fmt 'eng) (1+ (math-mod (+ eadj 300002) 3)) @@ -3186,8 +3188,9 @@ (if (< scale (length str)) (setq str (concat (substring str 0 scale) point (substring str scale)))) - (if calc-group-digits - (setq str (math-group-float str))) + (when calc-group-digits + (require 'calc-ext) + (setq str (math-group-float str))) (setq str (format (if (memq calc-language '(math maple)) (if (and prec (> prec 191)) "(%s*10.^%d)" "%s*10.^%d")