From: Colin Walters <walters@gnu.org>
Date: Sun, 14 Apr 2002 05:50:05 +0000 (+0000)
Subject: (math-format-number): Load `calc-ext' before we call
X-Git-Tag: ttn-vms-21-2-B4~15627
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=91da64426a85ffb408bae710492b932d4fdb0028;p=emacs.git

(math-format-number): Load `calc-ext' before we call
`math-group-float'.
---

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index f83f922837f..290ac5c963c 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -3145,8 +3145,9 @@ If mouse is pressed in Calc window, push cut buffer contents onto the stack."
 		  (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 @@ If mouse is pressed in Calc window, push cut buffer contents onto the stack."
 		   (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 mouse is pressed in Calc window, push cut buffer contents onto the stack."
 		(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")