Mercurial > emacs
comparison lisp/repeat.el @ 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 | 1fd9b569c5b4 |
| children | 7fd17414e625 |
comparison
equal
deleted
inserted
replaced
| 22934:c3b29b916c9c | 22935:9c6f6af7919f |
|---|---|
| 278 ;; (only 32 repetitions are possible given the default value of 200 for | 278 ;; (only 32 repetitions are possible given the default value of 200 for |
| 279 ;; max-lisp-eval-depth), but if I now locally disable the repeat char I | 279 ;; max-lisp-eval-depth), but if I now locally disable the repeat char I |
| 280 ;; can iterate indefinitely here around a single level of recursion. | 280 ;; can iterate indefinitely here around a single level of recursion. |
| 281 (let (repeat-on-final-keystroke) | 281 (let (repeat-on-final-keystroke) |
| 282 (while (eq (read-event) repeat-repeat-char) | 282 (while (eq (read-event) repeat-repeat-char) |
| 283 ;; Make each repetition undo separately. | |
| 284 (undo-boundary) | |
| 283 (repeat repeat-arg)) | 285 (repeat repeat-arg)) |
| 284 (setq unread-command-events (list last-input-event)))))) | 286 (setq unread-command-events (list last-input-event)))))) |
| 285 | 287 |
| 286 (defun repeat-self-insert (string) | 288 (defun repeat-self-insert (string) |
| 287 (let ((i 0)) | 289 (let ((i 0)) |