From: Colin Walters <walters@gnu.org>
Date: Sun, 14 Apr 2002 01:51:15 +0000 (+0000)
Subject: (math-format-radix-float): Load `calc-ext' before we call `math-group-float'.
X-Git-Tag: ttn-vms-21-2-B4~15629
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=23cbf556abc3fa698228c250f84cccf9187e03c3;p=emacs.git

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

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))