Mercurial > emacs
changeset 87442:c5df210848ca
* 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.
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Fri, 28 Dec 2007 08:59:50 +0000 |
| parents | 350032476821 |
| children | 69dbd59b144d |
| files | lisp/ChangeLog lisp/vc-bzr.el lisp/vc-cvs.el lisp/vc-git.el lisp/vc-hg.el lisp/vc-mcvs.el lisp/vc-svn.el |
| diffstat | 7 files changed, 13 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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
--- 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)
--- 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)
--- 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)
--- 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))
--- 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))))