(occur-engine): buffer-undo-list binding moved...

(occur-1): ...to here.

diff --git a/lisp/replace.el b/lisp/replace.el
index 5b970681ea73f77e4369872c324f4e3292d39044..9e45e3479c3fb352c16f58979c4d27d4f6535694 100644 (file)
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -1049,7 +1049,9 @@ See also `multi-occur'."
 
     (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 @@ See also `multi-occur'."
                            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)