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

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index a104e91ebe753a483f6af00c6c6ecee2e9d0a579..fbbfa6507acc4e21d1fc70ea25001d28b83c58e5 100644 (file)
--- 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)))))