From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 27 Jan 1996 02:36:05 +0000 (+0000)
Subject: (ispell-command-loop, ispell-region): Pass proper format string to message.
X-Git-Tag: emacs-19.34~1472
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=10ba47834e573c03c0cac6678258dc9a0e8f795f;p=emacs.git

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

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)))))