* 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.

7 files changed, 13 insertions, 0 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c62834d20b2..04992cd88f5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index 5e9bace920f..c87424fb8f6 100644
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -498,6 +498,7 @@ Optional argument LOCALP is always ignored."
     ;; 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 --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el
index cdb3aae8020..f5c86d4ead8 100644
--- a/lisp/vc-cvs.el
+++ b/lisp/vc-cvs.el
@@ -221,6 +221,7 @@ See also variable `vc-cvs-sticky-date-format-string'."
         ;; 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 --git a/lisp/vc-git.el b/lisp/vc-git.el
index 6fd6849281b..722e352f4f0 100644
--- a/lisp/vc-git.el
+++ b/lisp/vc-git.el
@@ -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 --git a/lisp/vc-hg.el b/lisp/vc-hg.el
index c82984b8c13..5c2cc35229d 100644
--- a/lisp/vc-hg.el
+++ b/lisp/vc-hg.el
@@ -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 --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el
index ba0ccf47747..4732f8dcfe1 100644
--- a/lisp/vc-mcvs.el
+++ b/lisp/vc-mcvs.el
@@ -187,6 +187,7 @@ This is only meaningful if you don't use the implicit checkout model
         ;; 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 --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index 87e1517e879..533a93c380f 100644
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -153,6 +153,7 @@ If you want to force an empty list of arguments, use t."
     ;; 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))))