# HG changeset patch # User Juanma Barranquero # 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))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;