diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-03-11 22:27:36 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-03-11 22:27:36 +0000 |
| commit | ab9d539cc9af07142893dab364a0ddf41577d71d (patch) | |
| tree | 8dd592b88a68bf09ba7542672d62142a052b895b /lisp | |
| parent | 6e36fe0badf488de5c8bb2475ca475eaa88ea5a1 (diff) | |
| download | emacs-ab9d539cc9af07142893dab364a0ddf41577d71d.tar.gz emacs-ab9d539cc9af07142893dab364a0ddf41577d71d.tar.bz2 emacs-ab9d539cc9af07142893dab364a0ddf41577d71d.zip | |
(ispell-command-loop): Disable message logging.
(ispell-region): Ditto.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/ispell.el | 10 |
1 files 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))))) |