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

[Juanma Barranquero]

Index: emacs/lisp/timer.el
diff -c emacs/lisp/timer.el:1.24 emacs/lisp/timer.el:1.25
*** emacs/lisp/timer.el:1.24    Sun Jul 15 12:15:34 2001
--- emacs/lisp/timer.el Fri Oct  5 05:26:53 2001
***************
*** 116,124 ****
      (setq low (+ low (floor secs)))
  
      ;; Normalize
!     (setq low (+ low (/ micro 1000000)))
      (setq micro (mod micro 1000000))
!     (setq high (+ high (/ low 65536)))
      (setq low (logand low 65535))
  
      (list high low (and (/= micro 0) micro))))
--- 116,126 ----
      (setq low (+ low (floor secs)))
  
      ;; Normalize
!     ;; `/' rounds towards zero while `mod' returns a positive number,
!     ;; so we can't rely on (= a (+ (* 100 (/ a 100)) (mod a 100))).
!     (setq low (+ low (/ micro 1000000) (if (< micro 0) -1 0)))
      (setq micro (mod micro 1000000))
!     (setq high (+ high (/ low 65536) (if (< low 0) -1 0)))
      (setq low (logand low 65535))
  
      (list high low (and (/= micro 0) micro))))