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

[Colin Walters]

Index: emacs/lisp/calc/calc.el
diff -c emacs/lisp/calc/calc.el:1.11 emacs/lisp/calc/calc.el:1.12
*** emacs/lisp/calc/calc.el:1.11        Fri Mar 29 18:00:12 2002
--- emacs/lisp/calc/calc.el     Sun Apr 14 01:50:05 2002
***************
*** 3145,3152 ****
                  (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))))
          (if (< figs 0)
              (setq figs (+ calc-internal-prec figs)))
          (if (> figs 0)
--- 3145,3153 ----
                  (setq str (concat (substring str 0 (- figs)) point
                                    (substring str (- figs))))
                (setq str (concat str point)))
!             (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,3181 ****
                   (t   ; (< dpos 0)
                    (setq str (concat "0" point
                                      (make-string (- dpos) ?0) str))))
!                 (if calc-group-digits
!                     (setq str (math-group-float str))))
              (let* ((eadj (+ exp len))
                     (scale (if (eq fmt 'eng)
                                (1+ (math-mod (+ eadj 300002) 3))
--- 3175,3183 ----
                   (t   ; (< dpos 0)
                    (setq str (concat "0" point
                                      (make-string (- dpos) ?0) 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,3193 ****
                (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)))
                (setq str (format (if (memq calc-language '(math maple))
                                      (if (and prec (> prec 191))
                                          "(%s*10.^%d)" "%s*10.^%d")
--- 3188,3196 ----
                (if (< scale (length str))
                    (setq str (concat (substring str 0 scale) point
                                      (substring str scale))))
!               (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")