/[emacs]/emacs/lisp/obsolete/float.el
ViewVC logotype

Diff of /emacs/lisp/obsolete/float.el

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

revision 1.2 by miles, Mon Sep 1 15:45:33 2003 UTC revision 1.3 by lektu, Mon May 9 08:44:58 2005 UTC
# Line 423  are recognized." Line 423  are recognized."
423               (setq power (+ power (- decimal-digits (length digit-string)))))               (setq power (+ power (- decimal-digits (length digit-string)))))
424    
425             ; round up and add minus sign, if necessary             ; round up and add minus sign, if necessary
426             (f (* (+ (string-to-int digit-string)             (f (* (+ (string-to-number digit-string)
427                      (if round-up 1 0))                      (if round-up 1 0))
428                   (if mant-sign -1 1))))                   (if mant-sign -1 1))))
429    
# Line 433  are recognized." Line 433  are recognized."
433                  (expt 0) (chunks 0) (tens 0) (exponent _f1)                  (expt 0) (chunks 0) (tens 0) (exponent _f1)
434                  (func 'f*))                  (func 'f*))
435    
436             (setq expt (+ (* (string-to-int             (setq expt (+ (* (string-to-number
437                               (substring expt-subst 0                               (substring expt-subst 0
438                                          (min expt-digits (length expt-subst))))                                          (min expt-digits (length expt-subst))))
439                              (if expt-sign -1 1))                              (if expt-sign -1 1))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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