mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(prepare-change-group): Reinstate BUFFER arg; make it work.

Browse Source
This commit is contained in:
Richard M. Stallman 2003-05-18 15:04:24 +00:00
parent deca5d968d
commit 62ea130628
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/subr.el
View File

@ -1242,8 +1242,9 @@ user can undo the change normally."
(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 @@ You can then activate that multibuffer change group with a single
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)."