diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-05-19 04:44:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-05-19 04:44:11 +0000 |
| commit | 8fa51910a24c98c68c01550f5b8209ed7c99a558 (patch) | |
| tree | 6077fb0e421c5f22e7c9e9cedbaaebe7f39f06c6 /lisp/textmodes/ispell4.el | |
| parent | fad97cbed645ccc167265f38fb92bc8e03cc63ad (diff) | |
| download | emacs-8fa51910a24c98c68c01550f5b8209ed7c99a558.tar.gz emacs-8fa51910a24c98c68c01550f5b8209ed7c99a558.tar.bz2 emacs-8fa51910a24c98c68c01550f5b8209ed7c99a558.zip | |
(ispell-command-loop): Make an undo boundary.
Diffstat (limited to 'lisp/textmodes/ispell4.el')
| -rw-r--r-- | lisp/textmodes/ispell4.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/textmodes/ispell4.el b/lisp/textmodes/ispell4.el index 079e821a193..8f1b83d3851 100644 --- a/lisp/textmodes/ispell4.el +++ b/lisp/textmodes/ispell4.el @@ -493,6 +493,7 @@ L lookup; Q quit\n") (while flag (ispell-show-choices word message first-line) (message "Ispell command: ") + (undo-boundary) (let ((c (downcase (read-char))) replacement) (cond ((and (>= c ?0) |