changeset 2888:e931a98b2f36

(ispell-command-loop): Make an undo boundary.
author Richard M. Stallman <rms@gnu.org>
date Wed, 19 May 1993 04:44:11 +0000
parents 0554478bfa71
children debc28aaae2c
files lisp/textmodes/=ispell4.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)