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

[Juri Linkov]

Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.438 emacs/lisp/subr.el:1.439
*** emacs/lisp/subr.el:1.438    Wed Mar 16 13:12:04 2005
--- emacs/lisp/subr.el  Sun Mar 20 20:59:14 2005
***************
*** 2750,2756 ****
         (min-value    (aref parameters 1))
         (max-value    (aref parameters 2))
         (one-percent  (/ (- max-value min-value) 100.0))
!        (percentage   (truncate (/ (- value min-value) one-percent)))
         (update-time  (aref parameters 0))
         (current-time (float-time))
         (enough-time-passed
--- 2750,2758 ----
         (min-value    (aref parameters 1))
         (max-value    (aref parameters 2))
         (one-percent  (/ (- max-value min-value) 100.0))
!        (percentage   (if (= max-value min-value)
!                          0
!                        (truncate (/ (- value min-value) one-percent))))
         (update-time  (aref parameters 0))
         (current-time (float-time))
         (enough-time-passed