1602 |
This mechanism is transparent to ordinary use of undo; |
This mechanism is transparent to ordinary use of undo; |
1603 |
if undo is enabled in the buffer and BODY succeeds, the |
if undo is enabled in the buffer and BODY succeeds, the |
1604 |
user can undo the change normally." |
user can undo the change normally." |
1605 |
|
(declare (indent 0) (debug t)) |
1606 |
(let ((handle (make-symbol "--change-group-handle--")) |
(let ((handle (make-symbol "--change-group-handle--")) |
1607 |
(success (make-symbol "--change-group-success--"))) |
(success (make-symbol "--change-group-success--"))) |
1608 |
`(let ((,handle (prepare-change-group)) |
`(let ((,handle (prepare-change-group)) |