From ab9d539cc9af07142893dab364a0ddf41577d71d Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 11 Mar 1997 22:27:36 +0000 Subject: [PATCH] (ispell-command-loop): Disable message logging. (ispell-region): Ditto. --- lisp/textmodes/ispell.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index dd553fa90e7..a6e5afd6406 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -1060,8 +1060,9 @@ used." 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 @@ With prefix argument, set the default directory." 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))))) -- 2.39.5