# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 858119256 0
# Node ID df636f296adfbe1884bed928b8fd41c9a2600b09
# Parent  5b46703f3b307d85df65890baef9a0cdf06e3212
(ispell-command-loop): Disable message logging.
(ispell-region): Ditto.

diff -r 5b46703f3b30 -r df636f296adf lisp/textmodes/ispell.el
--- a/lisp/textmodes/ispell.el	Tue Mar 11 22:23:36 1997 +0000
+++ b/lisp/textmodes/ispell.el	Tue Mar 11 22:27:36 1997 +0000
@@ -1060,8 +1060,9 @@
 		result
 		(progn
 		  (undo-boundary)
-		  (message (concat "C-h or ? for more options; SPC to leave "
-				   "unchanged, Character to replace word"))
+		  (let (message-log-max)
+		    (message (concat "C-h or ? for more options; SPC to leave "
+				     "unchanged, Character to replace word")))
 		  (let ((inhibit-quit t))
 		    (setq char (if (fboundp 'read-char-exclusive)
 				   (read-char-exclusive)
@@ -1864,8 +1865,9 @@
 					offset-change (+ offset-change change)
 					end (+ end change)))))
 			      (if (not ispell-quit)
-				  (message "Continuing spelling check using %s dictionary..."
-					   (or ispell-dictionary "default")))
+				  (let (message-log-max)
+				    (message "Continuing spelling check using %s dictionary..."
+					     (or ispell-dictionary "default"))))
 			      (sit-for 0)))
 			;; finished with line!
 			(setq ispell-filter (cdr ispell-filter)))))