# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822532558 0
# Node ID f5f5fa38faa72d8ab973450beebc8e22751955a0
# Parent  4a609420dfc1d6b419bc01b711a92d0b4ead38c9
(start-ispell, ispell-next): Pass proper format string to message.
(ispell-point): Delete format call inside message.

diff -r 4a609420dfc1 -r f5f5fa38faa7 lisp/textmodes/=ispell4.el
--- a/lisp/textmodes/=ispell4.el	Thu Jan 25 01:15:21 1996 +0000
+++ b/lisp/textmodes/=ispell4.el	Thu Jan 25 01:15:58 1996 +0000
@@ -126,7 +126,7 @@
       (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 @@
 	(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 @@
 ;;; 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)