Mercurial > emacs

changeset 44572:9e404d7dbe1d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-format-radix-float): Load `calc-ext' before we call `math-group-float'.
author Colin Walters <walters@gnu.org>
date Sun, 14 Apr 2002 01:51:15 +0000
parents be1cb50b8859
children 3e16ea61b8c4
files lisp/calc/calc-bin.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-bin.el	Sun Apr 14 01:50:57 2002 +0000
+++ b/lisp/calc/calc-bin.el	Sun Apr 14 01:51:15 2002 +0000
@@ -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))