Mercurial > emacs

changeset 14347:f5f5fa38faa7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(start-ispell, ispell-next): Pass proper format string to message. (ispell-point): Delete format call inside message.
author Karl Heuer <kwzh@gnu.org>
date Thu, 25 Jan 1996 01:15:58 +0000
parents 4a609420dfc1
children a5a7213294d9
files lisp/textmodes/=ispell4.el
diffstat 1 files changed, 4 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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)