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

[Dan Nicolaescu <dann@ics.uci.edu>]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

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

Applying it to HEAD makes the problem disappear for me.

Thanks!