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

[Stefan Monnier <monnier@iro.umontreal.ca>]

> ,----[ *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)))