[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc.el
From: |
Colin Walters |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc.el |
Date: |
Sun, 14 Apr 2002 01:50:06 -0400 |
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")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,
Colin Walters <=