From 18e1f24981ba72ede1fb434568e18ed0e46debbd Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Fri, 28 Dec 2007 08:59:50 +0000 Subject: [PATCH] * 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. --- lisp/ChangeLog | 7 +++++++ lisp/vc-bzr.el | 1 + lisp/vc-cvs.el | 1 + lisp/vc-git.el | 1 + lisp/vc-hg.el | 1 + lisp/vc-mcvs.el | 1 + lisp/vc-svn.el | 1 + 7 files changed, 13 insertions(+) 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 + + * 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 * 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)))) -- 2.39.2