# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 737786651 0
# Node ID e931a98b2f36047b7aee40841afc0a9fd6eadd3a
# Parent  0554478bfa7161e816082fe46cebef5f18e3a8de
(ispell-command-loop): Make an undo boundary.

diff -r 0554478bfa71 -r e931a98b2f36 lisp/textmodes/=ispell4.el
--- a/lisp/textmodes/=ispell4.el	Wed May 19 04:38:28 1993 +0000
+++ b/lisp/textmodes/=ispell4.el	Wed May 19 04:44:11 1993 +0000
@@ -493,6 +493,7 @@
     (while flag
       (ispell-show-choices word message first-line)
       (message "Ispell command: ")
+      (undo-boundary)
       (let ((c (downcase (read-char)))
 	    replacement)
 	(cond ((and (>= c ?0)