(cvs-temp-buffer): Disable undo in temp buffers.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46624565600..370bd3a2e05 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/pcvs.el b/lisp/pcvs.el
index 12ad6f5e2a0..50cad7e7c14 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -396,7 +396,9 @@ from the current 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))
+        (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)