From 32bf4c34c7fa40055034d4f3e60c2883a99fc4a3 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 25 Jan 1996 01:15:58 +0000 Subject: [PATCH] (start-ispell, ispell-next): Pass proper format string to message. (ispell-point): Delete format call inside message. --- lisp/textmodes/ispell4.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el index de1b8c72dd4..1bca6748052 100644 --- a/lisp/textmodes/ispell4.el +++ b/lisp/textmodes/ispell4.el @@ -126,7 +126,7 @@ that have not already been dumped will be lost." (let ((greeting (read (current-buffer)))) (if (not (= (car greeting) 1)) (error "Bad ispell version: wanted 1, got %d" (car greeting))) - (message (car (cdr greeting)))) + (message "%s" (car (cdr greeting)))) (delete-region (point-min) last-char)))) ;; Make sure ispell is ready for a command. @@ -349,7 +349,8 @@ Return value is t unless exit is due to typing `q'." (cond ((null ispell-bad-words) (error "Ispell has not yet been run")) ((markerp (car ispell-bad-words)) - (message (substitute-command-keys + (message "%s" + (substitute-command-keys "Type \\[ispell-next] to continue"))) ((eq (car ispell-bad-words) nil) (setq ispell-bad-words nil) @@ -455,7 +456,7 @@ With a prefix argument, resume handling of the previous Ispell command." ;;; This just causes confusion. -- rms. ;;; (goto-char start) ;;; (sit-for 0) - (message (format "Ispell checking %s" word)) + (message "Ispell checking %s" word) (ispell-cmd word) (let ((message (ispell-next-message))) (cond ((eq message t) -- 2.39.2