3 files changed, 6 insertions, 4 deletions

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index 9d6d19e6e1e..b1232d4c0a0 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -2099,7 +2099,7 @@ If FLAG is nil, a message is echoed if point was incremented at least
          (let* ((size (- (point-max) (point-min)))
                 (perc (if (= size 0)
                           100
-                        (/ (* 100 (- (point) (point-min))) size))))
+                        (floor (* 100.0 (- (point) (point-min))) size))))
            (when (>= perc (+ bibtex-progress-lastperc
                              bibtex-progress-interval))
              (setq bibtex-progress-lastperc perc)
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index e0749180611..64aa3de146e 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -1350,7 +1350,7 @@ that may be included as part of a word (see `ispell-dictionary-alist')."
         (if (and flyspell-issue-message-flag (= count 100))
             (progn
               (message "Spell Checking...%d%%"
-                       (* 100 (/ (float (- (point) beg)) (- end beg))))
+                       (floor (* 100.0 (- (point) beg)) (- end beg)))
               (setq count 0))
           (setq count (+ 1 count)))
         (flyspell-word)
@@ -1403,7 +1403,7 @@ The buffer to mark them in is `flyspell-large-region-buffer'."
           ;; be unnecessary too. -- rms.
           (if flyspell-issue-message-flag
               (message "Spell Checking...%d%% [%s]"
-                       (* 100 (/ (float (point)) (point-max)))
+                       (floor (* 100.0 (point)) (point-max))
                        word))
           (with-current-buffer flyspell-large-region-buffer
             (goto-char buffer-scan-pos)
diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index edc78e52efa..fa9f0fa638a 100644
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -1893,7 +1893,9 @@ all the table specific features."
             (while (and (re-search-forward border3 (point-max) t)
                         (not (and (input-pending-p)
                                   table-abort-recognition-when-input-pending)))
-              (message "Recognizing tables...(%d%%)" (/ (* 100 (match-beginning 0)) (- (point-max) (point-min))))
+              (message "Recognizing tables...(%d%%)"
+                       (floor (* 100.0 (match-beginning 0))
+                              (- (point-max) (point-min))))
               (let ((beg (match-beginning 0))
                     end)
                 (if (re-search-forward non-border (point-max) t)