diff options
| author | Richard M. Stallman <[email protected]> | 1998-08-07 07:57:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1998-08-07 07:57:53 +0000 |
| commit | 748b5d1b3ed2f6397c4277a7d20854dd0dc66d97 (patch) | |
| tree | f91b030ac9d477fe20e1a1d7f5420066ad496756 | |
| parent | dca3296e5249db932106d8bafea85f5a6b55ca3c (diff) | |
(repeat): Make an undo boundary between repetitions.
| -rw-r--r-- | lisp/repeat.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/repeat.el b/lisp/repeat.el index 318b3168fd..4418043af4 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)))))) |