# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1199216841 0
# Node ID de0bd1c6cbfdaea7c6c044df13609962ac5f3053
# Parent  32fc9891d86e93e406f7141bd959bfc6c266e488
(vc-git-dir-state): Set the vc-backend property.  Do
not disable undo, with-temp-buffer does it by default.

diff -r 32fc9891d86e -r de0bd1c6cbfd lisp/ChangeLog
--- 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
diff -r 32fc9891d86e -r de0bd1c6cbfd lisp/vc-git.el
--- 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)