Mercurial > emacs
comparison lisp/vc-git.el @ 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 | 7c0a55a957d0 |
| children | 71fc7b1db920 |
comparison
equal
deleted
inserted
replaced
| 87441:350032476821 | 87442:c5df210848ca |
|---|---|
| 150 'edited | 150 'edited |
| 151 'up-to-date))) | 151 'up-to-date))) |
| 152 | 152 |
| 153 (defun vc-git-dir-state (dir) | 153 (defun vc-git-dir-state (dir) |
| 154 (with-temp-buffer | 154 (with-temp-buffer |
| 155 (buffer-disable-undo) ;; Because these buffers can get huge | |
| 155 (vc-git-command (current-buffer) nil nil "ls-files" "-t" "-c" "-m" "-o") | 156 (vc-git-command (current-buffer) nil nil "ls-files" "-t" "-c" "-m" "-o") |
| 156 (goto-char (point-min)) | 157 (goto-char (point-min)) |
| 157 (let ((status-char nil) | 158 (let ((status-char nil) |
| 158 (file nil)) | 159 (file nil)) |
| 159 (while (not (eobp)) | 160 (while (not (eobp)) |