Mercurial > emacs
diff lisp/textmodes/ispell.el @ 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 | 9b9acdb0e3d7 |
| children | 30a3a2b1260a |
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)))))