# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 1198832390 0
# Node ID c5df210848ca9899811f142a85b42a821ae1ba11
# Parent  35003247682129fb247866cb8b43f58e188eedf2
* vc-bzr.el, vc-cvs.el, vc-git.el, vc-hg.el, vc-mcvs.el, vc-svn.el:
Modify all instances of the dir-state back-end method to suppress
keeping undo lists on the buffers holding astatus output, which
csn get extremely large.

diff -r 350032476821 -r c5df210848ca lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Dec 28 08:09:57 2007 +0000
+++ b/lisp/ChangeLog	Fri Dec 28 08:59:50 2007 +0000
@@ -1,3 +1,10 @@
+2007-12-28  Eric S. Raymond  <esr@snark.thyrsus.com>
+
+	* vc-bzr.el, vc-cvs.el, vc-git.el, vc-hg.el, vc-mcvs.el, vc-svn.el:
+	Modify all instances of the dir-state back-end method to suppress
+	keeping undo lists on the buffers holding astatus output, which
+	csn get extremely large.
+
 2007-12-28  Nick Roberts  <nickrob@snap.net.nz>
 
 	* thumbs.el (thumbs-call-convert): Use call-process directly
diff -r 350032476821 -r c5df210848ca lisp/vc-bzr.el
--- a/lisp/vc-bzr.el	Fri Dec 28 08:09:57 2007 +0000
+++ b/lisp/vc-bzr.el	Fri Dec 28 08:59:50 2007 +0000
@@ -498,6 +498,7 @@
     ;; evidence of the contrary.
     (setq at-start t)
     (with-temp-buffer
+      (buffer-disable-undo)		;; Because these buffers can get huge
       (vc-bzr-command "ls" t 0 nil "--versioned")
       (goto-char (point-min))
       (while (or at-start
diff -r 350032476821 -r c5df210848ca lisp/vc-cvs.el
--- a/lisp/vc-cvs.el	Fri Dec 28 08:09:57 2007 +0000
+++ b/lisp/vc-cvs.el	Fri Dec 28 08:59:50 2007 +0000
@@ -221,6 +221,7 @@
 	;; Don't specify DIR in this command, the default-directory is
 	;; enough.  Otherwise it might fail with remote repositories.
 	(with-temp-buffer
+	  (buffer-disable-undo)		;; Because these buffers can get huge
 	  (vc-cvs-command t 0 nil "status")
 	  (goto-char (point-min))
 	  (while (re-search-forward "^=+\n\\([^=\n].*\n\\|\n\\)+" nil t)
diff -r 350032476821 -r c5df210848ca lisp/vc-git.el
--- a/lisp/vc-git.el	Fri Dec 28 08:09:57 2007 +0000
+++ b/lisp/vc-git.el	Fri Dec 28 08:59:50 2007 +0000
@@ -152,6 +152,7 @@
 
 (defun vc-git-dir-state (dir)
   (with-temp-buffer
+    (buffer-disable-undo)		;; Because these buffers can get huge
     (vc-git-command (current-buffer) nil nil "ls-files" "-t" "-c" "-m" "-o")
     (goto-char (point-min))
     (let ((status-char nil)
diff -r 350032476821 -r c5df210848ca lisp/vc-hg.el
--- a/lisp/vc-hg.el	Fri Dec 28 08:09:57 2007 +0000
+++ b/lisp/vc-hg.el	Fri Dec 28 08:59:50 2007 +0000
@@ -179,6 +179,7 @@
 
 (defun vc-hg-dir-state (dir)
   (with-temp-buffer
+    (buffer-disable-undo)		;; Because these buffers can get huge
     (vc-hg-command (current-buffer) nil nil "status")
     (goto-char (point-min))
     (let ((status-char nil)
diff -r 350032476821 -r c5df210848ca lisp/vc-mcvs.el
--- a/lisp/vc-mcvs.el	Fri Dec 28 08:09:57 2007 +0000
+++ b/lisp/vc-mcvs.el	Fri Dec 28 08:59:50 2007 +0000
@@ -187,6 +187,7 @@
 	;; Don't specify DIR in this command, the default-directory is
 	;; enough.  Otherwise it might fail with remote repositories.
 	(with-temp-buffer
+	  (buffer-disable-undo)		;; Because these buffers can get huge
 	  (setq default-directory (vc-mcvs-root dir))
 	  (vc-mcvs-command t 0 nil "status")
 	  (goto-char (point-min))
diff -r 350032476821 -r c5df210848ca lisp/vc-svn.el
--- a/lisp/vc-svn.el	Fri Dec 28 08:09:57 2007 +0000
+++ b/lisp/vc-svn.el	Fri Dec 28 08:59:50 2007 +0000
@@ -153,6 +153,7 @@
     ;; Don't specify DIR in this command, the default-directory is
     ;; enough.  Otherwise it might fail with remote repositories.
     (with-temp-buffer
+      (buffer-disable-undo)		;; Because these buffers can get huge
       (vc-svn-command t 0 nil "status" (if localp "-v" "-u"))
       (vc-svn-parse-status))))