diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-08-07 07:57:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-08-07 07:57:53 +0000 |
| commit | c715836f998e4746e0c45fc126eb1e03e5037b55 (patch) | |
| tree | 8bff08bcca08e2d340311906717dd7f74070f7ef | |
| parent | 23ff2d7a578343135f03b53c9bafb9cba938703b (diff) | |
| download | emacs-c715836f998e4746e0c45fc126eb1e03e5037b55.tar.gz | |
(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 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)))))) |