# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1173367062 0
# Node ID 8d2b128344584489b1b7d14ce24397c6ab46354d
# Parent  535745f7a847826cd253f166cec08f37870c28af
(occur-engine): buffer-undo-list binding moved...
(occur-1): ...to here.

diff -r 535745f7a847 -r 8d2b12834458 lisp/replace.el
--- a/lisp/replace.el	Thu Mar 08 15:17:34 2007 +0000
+++ b/lisp/replace.el	Thu Mar 08 15:17:42 2007 +0000
@@ -1049,7 +1049,9 @@
 
     (with-current-buffer occur-buf
       (occur-mode)
-      (let ((inhibit-read-only t))
+      (let ((inhibit-read-only t)
+	    ;; Don't generate undo entries for creation of the initial contents.
+	    (buffer-undo-list t))
 	(erase-buffer)
 	(let ((count (occur-engine
 		      regexp active-bufs occur-buf
@@ -1086,8 +1088,6 @@
 			    title-face prefix-face match-face keep-props)
   (with-current-buffer out-buf
     (let ((globalcount 0)
-	  ;; Don't generate undo entries for creation of the initial contents.
-	  (buffer-undo-list t)
 	  (coding nil))
       ;; Map over all the buffers
       (dolist (buf buffers)