Re: undo-information kept for *occur*

[martin rudalics]

The attached patch uses brute force.

*** replace.el  Fri Feb 23 07:56:32 2007
--- replace.el  Mon Feb 26 11:40:36 2007
***************
*** 739,744 ****
--- 739,745 ----
    (use-local-map occur-mode-map)
    (setq major-mode 'occur-mode)
    (setq mode-name "Occur")
+   (setq buffer-undo-list t) ; Don't record undo information.
    (set (make-local-variable 'revert-buffer-function) 'occur-revert-function)
    (make-local-variable 'occur-revert-arguments)
    (add-hook 'change-major-mode-hook 'font-lock-defontify nil t)
***************
*** 1086,1093 ****
                            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)
--- 1087,1092 ----