/[emacs]/emacs/lisp/calc/calc.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by walters, Fri Mar 29 23:00:12 2002 UTC revision 1.12 by walters, Sun Apr 14 05:50:05 2002 UTC
# Line 3145  If mouse is pressed in Calc window, push Line 3145  If mouse is pressed in Calc window, push
3145                    (setq str (concat (substring str 0 (- figs)) point                    (setq str (concat (substring str 0 (- figs)) point
3146                                      (substring str (- figs))))                                      (substring str (- figs))))
3147                  (setq str (concat str point)))                  (setq str (concat str point)))
3148                (if calc-group-digits                (when calc-group-digits
3149                    (setq str (math-group-float str))))                  (require 'calc-ext)
3150                    (setq str (math-group-float str))))
3151            (if (< figs 0)            (if (< figs 0)
3152                (setq figs (+ calc-internal-prec figs)))                (setq figs (+ calc-internal-prec figs)))
3153            (if (> figs 0)            (if (> figs 0)
# Line 3174  If mouse is pressed in Calc window, push Line 3175  If mouse is pressed in Calc window, push
3175                     (t   ; (< dpos 0)                     (t   ; (< dpos 0)
3176                      (setq str (concat "0" point                      (setq str (concat "0" point
3177                                        (make-string (- dpos) ?0) str))))                                        (make-string (- dpos) ?0) str))))
3178                    (if calc-group-digits                    (when calc-group-digits
3179                        (setq str (math-group-float str))))                      (require 'calc-ext)
3180                        (setq str (math-group-float str))))
3181                (let* ((eadj (+ exp len))                (let* ((eadj (+ exp len))
3182                       (scale (if (eq fmt 'eng)                       (scale (if (eq fmt 'eng)
3183                                  (1+ (math-mod (+ eadj 300002) 3))                                  (1+ (math-mod (+ eadj 300002) 3))
# Line 3186  If mouse is pressed in Calc window, push Line 3188  If mouse is pressed in Calc window, push
3188                  (if (< scale (length str))                  (if (< scale (length str))
3189                      (setq str (concat (substring str 0 scale) point                      (setq str (concat (substring str 0 scale) point
3190                                        (substring str scale))))                                        (substring str scale))))
3191                  (if calc-group-digits                  (when calc-group-digits
3192                      (setq str (math-group-float str)))                    (require 'calc-ext)
3193                      (setq str (math-group-float str)))
3194                  (setq str (format (if (memq calc-language '(math maple))                  (setq str (format (if (memq calc-language '(math maple))
3195                                        (if (and prec (> prec 191))                                        (if (and prec (> prec 191))
3196                                            "(%s*10.^%d)" "%s*10.^%d")                                            "(%s*10.^%d)" "%s*10.^%d")

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26