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

Diff of /emacs/lisp/subr.el

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

revision 1.438 by monnier, Wed Mar 16 13:12:04 2005 UTC revision 1.439 by jurta, Sun Mar 20 20:59:14 2005 UTC
# Line 2750  change the displayed message." Line 2750  change the displayed message."
2750           (min-value    (aref parameters 1))           (min-value    (aref parameters 1))
2751           (max-value    (aref parameters 2))           (max-value    (aref parameters 2))
2752           (one-percent  (/ (- max-value min-value) 100.0))           (one-percent  (/ (- max-value min-value) 100.0))
2753           (percentage   (truncate (/ (- value min-value) one-percent)))           (percentage   (if (= max-value min-value)
2754                               0
2755                             (truncate (/ (- value min-value) one-percent))))
2756           (update-time  (aref parameters 0))           (update-time  (aref parameters 0))
2757           (current-time (float-time))           (current-time (float-time))
2758           (enough-time-passed           (enough-time-passed

Legend:
Removed from v.1.438  
changed lines
  Added in v.1.439

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