Mercurial > emacs
changeset 51068:4441e202a6f4
(prepare-change-group): Reinstate BUFFER arg; make it work.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 18 May 2003 15:04:24 +0000 |
| parents | a8a706365aaf |
| children | 20b5efbd58c6 |
| files | lisp/subr.el |
| diffstat | 1 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Sun May 18 05:29:38 2003 +0000 +++ b/lisp/subr.el Sun May 18 15:04:24 2003 +0000 @@ -1242,8 +1242,9 @@ (accept-change-group ,handle) (cancel-change-group ,handle)))))) -(defun prepare-change-group () +(defun prepare-change-group (&optional buffer) "Return a handle for the current buffer's state, for a change group. +If you specify BUFFER, make a handle for BUFFER's state instead. Pass the handle to `activate-change-group' afterward to initiate the actual changes of the change group. @@ -1269,7 +1270,9 @@ call to `activate-change-group' and finish it with a single call to `accept-change-group' or `cancel-change-group'." - (list (cons (current-buffer) buffer-undo-list))) + (if buffer + (list (cons buffer (with-current-buffer buffer buffer-undo-list))) + (list (cons (current-buffer) buffer-undo-list)))) (defun activate-change-group (handle) "Activate a change group made with `prepare-change-group' (which see)."