From 6a6ed04f3c98cf0102fadc8dd5c869362afe58a5 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 27 Jan 1996 02:36:05 +0000 Subject: (ispell-command-loop, ispell-region): Pass proper format string to message. --- lisp/textmodes/ispell.el | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'lisp/textmodes/ispell.el') 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))))) -- cgit v1.2.1