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

[Juanma Barranquero]

Index: emacs/lisp/obsolete/float.el
diff -c emacs/lisp/obsolete/float.el:1.2 emacs/lisp/obsolete/float.el:1.3
*** emacs/lisp/obsolete/float.el:1.2    Mon Sep  1 15:45:33 2003
--- emacs/lisp/obsolete/float.el        Mon May  9 08:44:58 2005
***************
*** 423,429 ****
             (setq power (+ power (- decimal-digits (length digit-string)))))
  
           ; round up and add minus sign, if necessary
!          (f (* (+ (string-to-int digit-string)
                    (if round-up 1 0))
                 (if mant-sign -1 1))))
  
--- 423,429 ----
             (setq power (+ power (- decimal-digits (length digit-string)))))
  
           ; round up and add minus sign, if necessary
!          (f (* (+ (string-to-number digit-string)
                    (if round-up 1 0))
                 (if mant-sign -1 1))))
  
***************
*** 433,439 ****
                (expt 0) (chunks 0) (tens 0) (exponent _f1)
                (func 'f*))
  
!          (setq expt (+ (* (string-to-int
                             (substring expt-subst 0
                                        (min expt-digits (length expt-subst))))
                            (if expt-sign -1 1))
--- 433,439 ----
                (expt 0) (chunks 0) (tens 0) (exponent _f1)
                (func 'f*))
  
!          (setq expt (+ (* (string-to-number
                             (substring expt-subst 0
                                        (min expt-digits (length expt-subst))))
                            (if expt-sign -1 1))