summaryrefslogtreecommitdiff
path: root/lisp/textmodes/ispell.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1996-01-27 02:36:05 +0000
committerRichard M. Stallman <rms@gnu.org>1996-01-27 02:36:05 +0000
commit6a6ed04f3c98cf0102fadc8dd5c869362afe58a5 (patch)
tree9b31ec00d91a374bf1e96c9ad871748143d33c31 /lisp/textmodes/ispell.el
parent9bbe5033809613f556e7a4b29ca58e26c7eb1cf8 (diff)
downloademacs-6a6ed04f3c98cf0102fadc8dd5c869362afe58a5.tar.gz
(ispell-command-loop, ispell-region): Pass proper format string to message.
Diffstat (limited to 'lisp/textmodes/ispell.el')
-rw-r--r--lisp/textmodes/ispell.el8
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)))))