* 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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index c62834d..04992cd 100644 (file)
--- 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 5e9bace..c87424f 100644 (file)
--- 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 cdb3aae..f5c86d4 100644 (file)
--- 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 6fd6849..722e352 100644 (file)
--- 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 c82984b..5c2cc35 100644 (file)
--- 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 ba0ccf4..4732f8d 100644 (file)
--- 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 87e1517..533a93c 100644 (file)
--- 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))))