changeset 17143:df636f296adf

(ispell-command-loop): Disable message logging. (ispell-region): Ditto.
author Karl Heuer <kwzh@gnu.org>
date Tue, 11 Mar 1997 22:27:36 +0000
parents 5b46703f3b30
children 1b3723c744f5
files lisp/textmodes/ispell.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)))))