mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(start-ispell, ispell-next): Pass proper format string to message.

Browse Source 
(ispell-point): Delete format call inside message.
This commit is contained in:
Karl Heuer 1996-01-25 01:15:58 +00:00
parent f0685fda1e
commit 32bf4c34c7
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/textmodes/ispell4.el
View File

@ -126,7 +126,7 @@ that have not already been dumped will be lost."
(let ((greeting (read (current-buffer)))) (let ((greeting (read (current-buffer))))
(if (not (= (car greeting) 1)) (if (not (= (car greeting) 1))
(error "Bad ispell version: wanted 1, got %d" (car greeting))) (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)))) (delete-region (point-min) last-char))))
;; Make sure ispell is ready for a command. ;; 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) (cond ((null ispell-bad-words)
(error "Ispell has not yet been run")) (error "Ispell has not yet been run"))
((markerp (car ispell-bad-words)) ((markerp (car ispell-bad-words))
(message (substitute-command-keys (message "%s"
(substitute-command-keys
"Type \\[ispell-next] to continue"))) "Type \\[ispell-next] to continue")))
((eq (car ispell-bad-words) nil) ((eq (car ispell-bad-words) nil)
(setq 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. ;;; This just causes confusion. -- rms.
;;; (goto-char start) ;;; (goto-char start)
;;; (sit-for 0) ;;; (sit-for 0)
(message (format "Ispell checking %s" word)) (message "Ispell checking %s" word)
(ispell-cmd word) (ispell-cmd word)
(let ((message (ispell-next-message))) (let ((message (ispell-next-message)))
(cond ((eq message t) (cond ((eq message t)