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

[Martin Rudalics]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Martin Rudalics <m061211>       08/09/07 09:15:44

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.605
retrieving revision 1.606
diff -u -b -r1.605 -r1.606
--- subr.el     6 Sep 2008 10:01:25 -0000       1.605
+++ subr.el     7 Sep 2008 09:15:43 -0000       1.606
@@ -1993,6 +1993,10 @@
   (dolist (elt handle)
     (with-current-buffer (car elt)
       (setq elt (cdr elt))
+      (save-restriction
+       ;; Widen buffer temporarily so if the buffer was narrowed within
+       ;; the body of `atomic-change-group' all changes can be undone.
+       (widen)
       (let ((old-car
              (if (consp elt) (car elt)))
             (old-cdr
@@ -2012,7 +2016,7 @@
           (setcar elt old-car)
           (setcdr elt old-cdr))
         ;; Revert the undo info to what it was when we grabbed the state.
-        (setq buffer-undo-list elt)))))
+         (setq buffer-undo-list elt))))))
 
 ;;;; Display-related functions.