# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 902476673 0
# Node ID 9c6f6af7919f89f10738151c26f91075b0a15afe
# Parent  c3b29b916c9c5189796f1436e6d47bbb3e57c682
(repeat): Make an undo boundary between repetitions.

diff -r c3b29b916c9c -r 9c6f6af7919f lisp/repeat.el
--- a/lisp/repeat.el	Fri Aug 07 07:23:07 1998 +0000
+++ b/lisp/repeat.el	Fri Aug 07 07:57:53 1998 +0000
@@ -280,6 +280,8 @@
       ;; can iterate indefinitely here around a single level of recursion.
       (let (repeat-on-final-keystroke)
         (while (eq (read-event) repeat-repeat-char)
+	  ;; Make each repetition undo separately.
+	  (undo-boundary)
           (repeat repeat-arg))
         (setq unread-command-events (list last-input-event))))))