# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1185239199 0
# Node ID 4a6aba4ac8b16a894485ba21c5718d44647af804
# Parent  89fdf8885a698daadfd6c782d4f7789954588950
(cvs-temp-buffer): Disable undo in temp buffers.

diff -r 89fdf8885a69 -r 4a6aba4ac8b1 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jul 23 22:35:46 2007 +0000
+++ b/lisp/ChangeLog	Tue Jul 24 01:06:39 2007 +0000
@@ -1,3 +1,7 @@
+2007-07-24  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* pcvs.el (cvs-temp-buffer): Disable undo in temp buffers.
+
 2007-07-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* ses.el (ses-cleanup): Prevent Emacs from spuriously checking if the
diff -r 89fdf8885a69 -r 4a6aba4ac8b1 lisp/pcvs.el
--- a/lisp/pcvs.el	Mon Jul 23 22:35:46 2007 +0000
+++ b/lisp/pcvs.el	Tue Jul 24 01:06:39 2007 +0000
@@ -396,7 +396,9 @@
       (set (make-local-variable 'cvs-buffer) cvs-buf)
       ;;(cvs-minor-mode 1)
       (let ((lbd list-buffers-directory))
-	(if (fboundp mode) (funcall mode) (fundamental-mode))
+	(if (fboundp mode) (funcall mode)
+          (fundamental-mode)
+          (buffer-disable-undo))
 	(when lbd (set (make-local-variable 'list-buffers-directory) lbd)))
       (cvs-minor-mode 1)
       ;;(set (make-local-variable 'cvs-buffer) cvs-buf)