From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 24 Jul 2007 01:06:39 +0000 (+0000)
Subject: (cvs-temp-buffer): Disable undo in temp buffers.
X-Git-Tag: emacs-pretest-22.1.90~1216
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=483bdbb35b7760344f8889a2ddb72bd68b35b201;p=emacs.git

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

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)