(ispell-command-loop, ispell-region): Pass proper format string to message.

1 files changed, 3 insertions, 5 deletions

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index a104e91ebe7..fbbfa6507ac 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -1100,7 +1100,7 @@ used."
                    ;; Quit and preserve point.
                    ((= char ?X)
                     (ispell-pdict-save ispell-silently-savep)
-                    (message
+                    (message "%s"
                      (substitute-command-keys
                       (concat "Spell-checking suspended;"
                               " use C-u \\[ispell-word] to resume")))
@@ -1855,10 +1855,8 @@ With prefix argument, set the default directory."
                                         offset-change (+ offset-change change)
                                         end (+ end change)))))
                               (if (not ispell-quit)
-                                  (message
-                                   (concat "Continuing spelling check using "
-                                           (or ispell-dictionary "default")
-                                           " dictionary...")))
+                                  (message "Continuing spelling check using %s dictionary..."
+                                           (or ispell-dictionary "default")))
                               (sit-for 0)))
                         ;; finished with line!
                         (setq ispell-filter (cdr ispell-filter)))))