[Emacs-diffs] Changes to emacs/lisp/calc/calc-bin.el

[Colin Walters]

Index: emacs/lisp/calc/calc-bin.el
diff -c emacs/lisp/calc/calc-bin.el:1.3 emacs/lisp/calc/calc-bin.el:1.4
*** emacs/lisp/calc/calc-bin.el:1.3     Mon Nov 19 02:32:03 2001
--- emacs/lisp/calc/calc-bin.el Sat Apr 13 21:51:15 2002
***************
*** 676,683 ****
                        (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))))
            (setq figs 0))))
      (or str
        (let* ((prec calc-internal-prec)
--- 676,684 ----
                        (setq str (substring str 1)
                              int (math-add int 1))))
                  (setq str (concat (math-format-number int) point 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,752 ****
          (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)))
          (if explo
              (let ((estr (let ((calc-number-radix 10)
                                (calc-group-digits nil))
--- 746,753 ----
          (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))
!         (when calc-group-digits
!           (setq str (math-group-float str)))
          (if explo
              (let ((estr (let ((calc-number-radix 10)
                                (calc-group-digits nil))