comparison lisp/subr.el @ 83407:37d0562504bf

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-664 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-665 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-666 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-447

83406:8e25aa911e3e

This works regardless of whether undo is enabled in the buffer.

This mechanism is transparent to ordinary use of undo;
if undo is enabled in the buffer and BODY succeeds, the
user can undo the change normally."
  (let ((handle (make-symbol "--change-group-handle--"))
	(success (make-symbol "--change-group-success--")))
    `(let ((,handle (prepare-change-group))
	   (,success nil))
       (unwind-protect

83407:37d0562504bf

This works regardless of whether undo is enabled in the buffer.

This mechanism is transparent to ordinary use of undo;
if undo is enabled in the buffer and BODY succeeds, the
user can undo the change normally."
  (declare (indent 0) (debug t))
  (let ((handle (make-symbol "--change-group-handle--"))
	(success (make-symbol "--change-group-success--")))
    `(let ((,handle (prepare-change-group))
	   (,success nil))
       (unwind-protect