Mercurial > emacs

changeset 44574:f9b633c7d323

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 3e16ea61b8c4
children 52bd3d1b9cb9
files lisp/calc/calc.el
diffstat 1 files changed, 9 insertions(+), 6 deletions(-) [+]
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")