Re: undo info for `*cvs-diff*'

[Stefan Monnier]

> ,----[ *Warnings* ]
> | Warning (undo): Buffer `*cvs-diff*' undo info was 5641808 bytes long.
> | The undo info was discarded because it exceeded `undo-outer-limit'.
> | [...]
> `----

I believe I know what was causing this trouble.  Can you try the
patch below which I just installed in the 22 branch?


        Stefan


--- pcvs.el     25 jui 2007 00:41:22 -0400      1.98.2.4
+++ pcvs.el     25 jui 2007 00:43:49 -0400      
@@ -392,17 +392,18 @@
     (with-current-buffer buf
       (setq buffer-read-only nil)
       (setq default-directory dir)
-      (unless nosetup (erase-buffer))
+      (unless nosetup
+        (buffer-disable-undo)
+        (erase-buffer))
       (set (make-local-variable 'cvs-buffer) cvs-buf)
       ;;(cvs-minor-mode 1)
       (let ((lbd list-buffers-directory))
-       (if (fboundp mode) (funcall mode)
-          (fundamental-mode)
-          (buffer-disable-undo))
+       (if (fboundp mode) (funcall mode) (fundamental-mode))
        (when lbd (set (make-local-variable 'list-buffers-directory) lbd)))
       (cvs-minor-mode 1)
       ;;(set (make-local-variable 'cvs-buffer) cvs-buf)
-      (unless normal
+      (if normal
+          (buffer-enable-undo)
        (setq buffer-read-only t)
        (buffer-disable-undo))
       buf)))