(progress-reporter-do-update): When `min-value' is equal

to `max-value', set `percentage' to 0 and prevent division by zero.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d1a050343ecfa0cf7c1d1ffa5b3146cf5a6426dd..f9cad483232cfb17ec7fe7f49bf049eb034b6d7b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-20  Juri Linkov  <juri@jurta.org>
+
+       * subr.el (progress-reporter-do-update): When `min-value' is equal
+       to `max-value', set `percentage' to 0 and prevent division by zero.
+
 2005-03-20  Michael Albinus  <michael.albinus@gmx.de>
 
        Sync with Tramp 2.0.48.

diff --git a/lisp/subr.el b/lisp/subr.el
index b9e7786cfe4fe479f71e8b709e73b1e805786410..4ff9be7e8b98d970749c9b5161865bcc5c811258 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2750,7 +2750,9 @@ change the displayed message."
         (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