Mercurial > emacs
changeset 22935:9c6f6af7919f
(repeat): Make an undo boundary between repetitions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 07 Aug 1998 07:57:53 +0000 |
| parents | c3b29b916c9c |
| children | 7ba8e024c38f |
| files | lisp/repeat.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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))))))