* 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 c62834d20b2c08d50bcedda0765a69cf97a8a5da..04992cd88f5a24bebd855fd31e09f8883844ccce 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 5e9bace920fca1e698f63f3a76b69001ea7a67bf..c87424fb8f62907c88411fdb96999b5727e6ce16 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 cdb3aae802021b25c7a57de8ea499fd136ea35e2..f5c86d4ead87476ac7a660419e47f6354b85d7a3 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 6fd6849281bbdd009b0d48bd036df5d523f79aa3..722e352f4f0e023c12cef1b1da38dd32a2c91569 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 c82984b8c13478d81d7511b25b1f36e2387141f4..5c2cc35229d58b567d03cbafecfae27589f72da6 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 ba0ccf47747070b57dc19ecb96fe2eea4336dc99..4732f8dcfe1be6ef96e994a9f3afbf2a4a700c57 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 87e1517e879d8413df5213f4d1ff9811b2fa2b45..533a93c380f12b5d774867af24f62b3d469835ba 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))))