# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1111352354 0
# Node ID 7fd2729eec90df153d35b7a56a47276b7e628f2f
# Parent  3ba8f94e9cfa06f57af8d9d66d397812c115393c
(progress-reporter-do-update): When `min-value' is equal
to `max-value', set `percentage' to 0 and prevent division by zero.

diff -r 3ba8f94e9cfa -r 7fd2729eec90 lisp/subr.el
--- a/lisp/subr.el	Sun Mar 20 20:00:20 2005 +0000
+++ b/lisp/subr.el	Sun Mar 20 20:59:14 2005 +0000
@@ -2750,7 +2750,9 @@
 	 (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)))
+	 (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