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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4662456560011a4c7577209afd7c0d2b944f8275..370bd3a2e058e05dc5dcaa008baf057e9420b685 100644 (file)
--- 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 12ad6f5e2a004b7cbbea21d037b92378e509120a..50cad7e7c149d3796ae91424727fe4edeb164646 100644 (file)
--- 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)