(vc-git-dir-state): Set the vc-backend property. Do

not disable undo, with-temp-buffer does it by default.

2 files changed, 9 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 04925a7fc1c..7c836942698 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-git.el b/lisp/vc-git.el
index 1626d5347ee..64bcbeb0b2b 100644
--- a/lisp/vc-git.el
+++ b/lisp/vc-git.el
@@ -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)