[Emacs-diffs] Changes to emacs/lisp/subr.el

[Richard M. Stallman]

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)."