# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1187003570 0
# Node ID f0b6bf720515d2ca89ec897ce3c94366d0f94b07
# Parent  8d7512ea727b3d7ac88102c1f4a6f40f55d67363
(vhdl-update-progress-info): Avoid divide by zero error.

diff -r 8d7512ea727b -r f0b6bf720515 lisp/progmodes/vhdl-mode.el
--- a/lisp/progmodes/vhdl-mode.el	Mon Aug 13 11:10:47 2007 +0000
+++ b/lisp/progmodes/vhdl-mode.el	Mon Aug 13 11:12:50 2007 +0000
@@ -6982,10 +6982,13 @@
   (when (and vhdl-progress-info (not noninteractive)
 	     (< vhdl-progress-interval
 		(- (nth 1 (current-time)) (aref vhdl-progress-info 2))))
-    (message (concat string "... (%2d%s)")
-	     (/ (* 100 (- pos (aref vhdl-progress-info 0)))
-		(- (aref vhdl-progress-info 1)
-		   (aref vhdl-progress-info 0))) "%")
+    (let ((delta (- (aref vhdl-progress-info 1)
+                    (aref vhdl-progress-info 0))))
+      (if (= 0 delta)
+          (message (concat string "... (100%s)") "%")
+        (message (concat string "... (%2d%s)")
+                 (/ (* 100 (- pos (aref vhdl-progress-info 0)))
+                    delta) "%")))
     (aset vhdl-progress-info 2 (nth 1 (current-time)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;