From: Richard M. Stallman Date: Fri, 7 Aug 1998 07:57:53 +0000 (+0000) Subject: (repeat): Make an undo boundary between repetitions. X-Git-Tag: emacs-20.3~144 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=748b5d1b3ed2f6397c4277a7d20854dd0dc66d97;p=emacs.git (repeat): Make an undo boundary between repetitions. --- 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))))))