Mercurial > emacs
changeset 87516:de0bd1c6cbfd
(vc-git-dir-state): Set the vc-backend property. Do
not disable undo, with-temp-buffer does it by default.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Tue, 01 Jan 2008 19:47:21 +0000 |
| parents | 32fc9891d86e |
| children | f74e1db4c182 |
| files | lisp/ChangeLog lisp/vc-git.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jan 01 19:03:27 2008 +0000 +++ b/lisp/ChangeLog Tue Jan 01 19:47:21 2008 +0000 @@ -1,3 +1,8 @@ +2008-01-01 Dan Nicolaescu <dann@ics.uci.edu> + + * vc-git.el (vc-git-dir-state): Set the vc-backend property. Do + not disable undo, with-temp-buffer does it by default. + 2008-01-01 Eric S. Raymond <esr@snark.thyrsus.com> * vc-svn.el (vc-svn-parse-status): Set the 'unregisted property
--- a/lisp/vc-git.el Tue Jan 01 19:03:27 2008 +0000 +++ b/lisp/vc-git.el Tue Jan 01 19:47:21 2008 +0000 @@ -155,7 +155,6 @@ "Git-specific version of `dir-state'." ;; FIXME: This can't set 'ignored yet (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) @@ -172,12 +171,16 @@ ;; should not show up in vc-dired, so don't deal with them ;; here. ((eq status-char ?H) + (vc-file-setprop file 'vc-backend 'Git) (vc-file-setprop file 'vc-state 'up-to-date)) ((eq status-char ?R) + (vc-file-setprop file 'vc-backend 'Git) (vc-file-setprop file 'vc-state 'removed)) ((eq status-char ?M) + (vc-file-setprop file 'vc-backend 'Git) (vc-file-setprop file 'vc-state 'edited)) ((eq status-char ?C) + (vc-file-setprop file 'vc-backend 'Git) (vc-file-setprop file 'vc-state 'edited)) ((eq status-char ??) (vc-file-setprop file 'vc-backend 'none)