From 748b5d1b3ed2f6397c4277a7d20854dd0dc66d97 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Fri, 7 Aug 1998 07:57:53 +0000
Subject: (repeat): Make an undo boundary between repetitions.

---
 lisp/repeat.el | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lisp/repeat.el')

diff --git a/lisp/repeat.el b/lisp/repeat.el
index 318b3168fd3..4418043af4c 100644
--- a/lisp/repeat.el
+++ b/lisp/repeat.el
@@ -280,6 +280,8 @@ can be modified by the global variable `repeat-on-final-keystroke'."
       ;; 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))))))
 
-- 
cgit v1.2.1