[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/subr.el
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/subr.el |
Date: |
Sun, 18 May 2003 11:04:25 -0400 |
Index: emacs/lisp/subr.el
diff -c emacs/lisp/subr.el:1.352 emacs/lisp/subr.el:1.353
*** emacs/lisp/subr.el:1.352 Sat May 17 22:31:19 2003
--- emacs/lisp/subr.el Sun May 18 11:04:24 2003
***************
*** 1242,1249 ****
(accept-change-group ,handle)
(cancel-change-group ,handle))))))
! (defun prepare-change-group ()
"Return a handle for the current buffer's state, for a change group.
Pass the handle to `activate-change-group' afterward to initiate
the actual changes of the change group.
--- 1242,1250 ----
(accept-change-group ,handle)
(cancel-change-group ,handle))))))
! (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,1275 ****
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)))
(defun activate-change-group (handle)
"Activate a change group made with `prepare-change-group' (which see)."
--- 1270,1278 ----
call to `activate-change-group' and finish it with a single call
to `accept-change-group' or `cancel-change-group'."
! (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)."